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IDENTIFICATION 

PRODUCT NAME: CNDUUAO DUV11 OFLNE TMG INTR 
PRODUCT CODE: AC-1457A-MC 

PRODUCT DATE:DEC, 1982 

MAINTAINER :DIAGNUSTICS SERVICES/ISS 
AUTHOR: K.LIND 


COPYRIGHT (C) 1982,1983 
DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS. 


THE INFORMATION IN THIS te ye IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS 
THAT MAY APPEAR IN THIS DOCUMENT. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICE 
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH L 


N 
I 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE US 
RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY D 


SE AND 
CENSE. 
E OF 
IGITAL. 


. REM 


«REM 


SEQ 0001 
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GENERAL DESCRIPTION 
THIS Ate re dy CAN CHAIN 16 DUV11°S. THIS MEANS THAT 
16 DEVICES CAN BE SEQUENTIALLY EXERCISED. THE DIAGNOSTIC 
MAKES ONE PASS BEFORE PROCEEDING TO THE NEXT DEVICE, 
AND CONTINUES EXERCISING ALL DEVICES IN THIS FASHION UNTIL 
® 
«REM * 
1. THE DUV11 OFFLINE COMBINED TIMING AND INTERRUPT TESTS 
ee THAT ms TRANSMITTER AND RECEIVER CAN CORRECTLY 
K_ TO EACH OTHER. INTERRUPT LOGIC AND PRIORITY LEVEL 
IWECTOR ADDRESSES ARE ALSO VERIFIED . 
«REM . 


2. REQUIREMENTS 
PDP=11/21 COMPUTER (LSI) 
DUV11 SYNCRONOUS/ISOCRONOUS OPTION 
ONE CONSOLE TELETYPE OR EQUIVALENT 


2.2 STORAGE 
THE PROGRAM LOADS INTO 4K OF MEMORY WITH BOOTSTRAP 
3. LOADING PROCEDURE 
THE STANDARD PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES 
IS TO BE USED. 
STARTING ADDRESS 
FOR ABSOLUTE LOADER 
4K 017500 
8K 037500 
12k 057500 
16K 077500 
20K 117500 
24K 137500 
28k 157500 
4. STARTING PROCEDURE 
4.1 CONTROL SWITCH SETTINGS 


NOTE: ALL we anes ine INTERNAL TO THE CPU AT ADDRESS 
6. THESE ne SET VIA THE CONSOLE TTY BY DIRECTLY 
MOD IF YING tote 


NOTE: RUNNING UNDER APT-11, THERE IS A USER SWITCH REGISTER 
CALLED “SUSWR'’. IN ORD DER TO BE FLEXIBLE ON THE AVAILIBILITY OF THE 
51 CONNECTOR, ONE BIT PASSES STATUS TO APT-11. 
BIT O_IN $USWR REFLECTS THIS STATUS, A 0 = CONNECTOR 


CNDUU-A ‘hh 
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4.2 


4.3 
4.3.1 


4.3.2 
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PRESENT al = CONNECTOR NOT AVAILIBLE. 
THE usa ¢ HANGES THE CONTENTS OF THIS LOCATION 
WHEN BU! LDING THE E TABLE, BY ANSWERING THE 
PROMPT “SWITCH . 


AFTER PROGRAM LOAD fg Ue PROGRAM START) 
ALL CONSOLE SWITCHES D 


TO MODIFY DEVICE VECTOR AND CONTROL REGISTER ADDRESSES 
AFTER PROGRAM RESTART OR TO RUN MULTIPLE DEVICES 


$wOd=1 
TO START PROGRAM AT SELECTED TEST AA A PROGRAM RESTART 
Su0is1 (ONLY IN SINGLE DEVICE TESTS 


TO LOCK Tan SELECTED ree" ee 


FTER A PROGRAM RESTART 
NLY IN SING VICE TESTS) 


DE E 


SW14=1 

NOTE1: IN GENERAL SwWO1 WILL BE uy WHEN SW14=1 | 
NOTE2: WITHOUT SwWwO1=1 “LOCK ON TEST’ WILL DEFAUL 
STARTING ADDRESS 

THE STARTING ADDRESS FOR ALL TESTS IS 000200 

THE RETARTING ADDRESS FOR ALL TESTS IS 000200 

THE STARTING ADDRESS TO ENTER A SELECTED TEST IS 000200 
THE STARTING ADDRESS TO LOCK ON TEST IS 000200 

PROGRAM AND/OR OPERATOR ACTION 

INITIAL PROGRAM START 

4.3.1.1 LOAD PROGRAM INTO MEMORY WITH ABSOLUTE LOADER 
4.3.1.2 SET SWITCH REGISTER (LOC. 176) TO ZERO. 

4.3.1.3 TYPE 200G. 


4.3.1.4 PROGRAM WILL START. 


$ 
T 


4.3.1.5 THE PROGRAM WILL TYPE ‘‘DUV11 CNDUU-A TAPE E°’ (ONCE ONLY) 
4.3.1.6 THE PROGRAM WILL TYPE ‘'R’’ TO INDICATE THAT IT IS ABOUT 

TO START TESTING ,AND THEN TESTING WILL BEGIN 

PROGRAM RESTART WITH ALL SWITCHES DOWN 

4.3.2.1 THE PROGRAM WILL TYPE ‘'R’’ AND WILL COMMENCE TESTING 


SEQ 0003 
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PROGRAM RESTART WITH SwO00=1 

4.3.3.1 SET SWITCH REGISTER (LOC. 176) TO A 000001. 
4.3.3.2 TYPE 2006. 

4.3.3.3 PROGRAM WILL START. 


4.3.3.4 THE PROGRAM WILL TYPE ‘' 1ST DEVICE: RECEIVER CONTROL REGISTER 
ADDRESS"’ AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
4.3.3.5 TYPE IN THE ADDRESS OF THE FIRST RECEIVER CONTROL 
REGISTER ADDRESS OF THE DUV11 TO BE TESTED 


FOLLOWED BY A <CARRIAGE RETURN> 
IF AN INCORRECT ADDRESS IS TYPED ,THE PROGRAM WILL TYPE ‘'?"' 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.4 


4.3.3.6 THE PROGRAM WILL TYPE ‘VECTOR ADDRESS-"' AND WAIT FOR AN 
INPUT FROM THE TELETYPE KEYBOARD 


4.3.5.7 TYPE IN THE BASE RECEIVER INTERRUPT VECTOR ADDRESS 
FOR THE DUV11 TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN> 
IF AN INCORRECT ADDRESS IS TYPED ,THE PROGRAM WILL TYPE ‘'?"' 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.6 


4.3.3.8 THE PROGRAM WILL TYPE “‘ARE YOU RUNNING MULTIPLE DEVICES 2° 
(Y OR N)-"" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4.3.3.9 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY A 
<CARRIAGE RETURN> 


IF AN INCORRECT ANSWER IS GIVEN, THE PROGRAM WILL TYPE ‘2°’ 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.8 


IF A *'NO'’ ANSWER IS GIVEN: JUMP TO SECTION 4.3.3.12 
IF A “'YES’’ ANSWER IS GIVEN: THE NEXT QUESTION IS ASKED 
4.3.3.10 THE PROGRAM WILL TYPE “LAST DEVICE:RECEIVER CONTROL 
REGISTER ADDRESS~"" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
4.3.3.11 TYPE IN THE ADDRESS OF THE LAST RECEIVER CONTROL REGISTER 
ADDRESS OF THE DUV11 TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN> 


IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE ‘'?°* 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.10 
NOTE:ALL ADDRESSES SHALL BE CONTIGUOUS 


4.5.3.11.1 IF AN ‘‘OUT OF RANGE*’ ADDRESS IS TYPED 
IE. MORE THAN 16 (10) DEVICES AWAY (UPWARDS).....THE 


SEQ 0004 
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PROGRAM WILL TYPE ‘‘OUT OF RANGE:RETYPE LAST DEVICE RXCSR ADDRESS-"" 
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


bo Dode ll on TYPE IN THE ADDRESS OF THE LAST RECEIVER CONTROL 
REGISTER ADDRESS OF THE DUV11 TO BE TESTED FOLLOWED 
BY A <CARRIAGE RETURN> 


IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE ‘'?"’ 
AND WILL REPEAT THE MESSAGE OF 4.3.3.11.1 


IF A DEVICE ADDRESS LOWER THAN 1ST DEVICE ADDRESS TYPED. wccccccccs 
-+.eSCHOOLS OUT......... THERE IS NO PROTECTION FOR THIS. 

THE PROGRAM WILL DEFAULT TO TWO DEVICES ACTIVE (UPWARDS FROM 

1ST DEVICE ADDRESS). re Ro APPLIES TO IDENTICAL ADDRESSES 

TYPED FOR FIRST AND LAST DEVICE. 

OBSERVE LOCATION @ ACTREG: SEE SECT 


4.3.3.12 THE PROGRAM bp be TYPE *# OF SYNC 
SELECTED (1 OR 2)-" WAIT FOR AN INPU 
KEYBOARD. REFER 10 MANUAL FOR PROPER SwI 
SWITCH E554. 


4.3.3.13 TYPE IN THE APPROPRIATE ANSWER °l"' OR ‘2°’ FOLLOWED 
4 Br! eee RETURN>.(NOTE:ALL MULTIPLE DEVICES MUST 


D 
CT] 
CT] 
DEN 
10N 7.2 
CHARS 
T FROM THE TELETYPE 
TCH SETTINGS OF 


C 


If AN INCORRECT ANSWER IS TYPED ,THE PR 
AND WILL REPEAT THE MESSAGE OF 4.3.5.12 
$s 


Pp 

1 

4.3.3.14 THE PROGRAM WILL TYPE ‘ IS SEC XMIT SWITCH E55-2 ON? (Y OR N)-"" 
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4.3.3.15 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED 
BY A <CARRIAGE RETURN>. (NOTE THAT ALL MULTIPLE DEVICES 
MUST BE THE SAME) 


OGRAM Wit TYPE °'?"° 


IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE °*?"° 
AND WILL REPEAT THE MESSAGE OF 4.3.3.14 


4.3.3.16 THE PROGRAM WILL TYPE “IS SEC REC SWITCH E55-3 0 
(Y OR N)-"" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
4.3.3.17 TYPE JN THE APPROPRIATE ANSWER YES OR NO FOLLOWED 
BY A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST BE THE SAME) 


IF AN INCORRECT ANSWER IS TYPED ,T 
AND WILL REPEAT THE MESSAGE OF 4.3 


4.3.3.18 THE PROGRAM WILL TYPE “IS 0 
—E55-1 ON? (Y OR N)-"" AND WAIT FOR A 


H OGRAM WILL TYPE °'?"* 


T CLR ENABLE SWITCH 


E PR 
3.16 
PT C 
N INPUT FROM THE TELETYPE KEYBOARD 


SEQ 0005 


CNDUU=A_MACY11 po tioeg) at a a 10:02 PAGE 57-5 
CNDUU1.M11 10=DEC-82 13 


4.3.3.19 YPE_IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED 
BY A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST BE THE SAME) 


SEQ 0006 


IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE ‘'?°’ 
AND WILL REPEAT THE MESSAGE OF 4.3.5.18 


4.3.3.20 THE a) te WILL TYPE hw | A RUNNING IN MAINT. 
MODE EXTERNAL ? AND ......D0 YOU HAVE THE EXTERNAL MODEM 
BYPASS JUMPER CONNECTOR ON ? (Y OR N)="' AND WAIT FOR AN 


INPUT FROM THE TELETYPE KEYBOARD 
4.3.3.21 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLCWED BY 
A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST BE THE SAME) 
IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE ‘'?"’ 
AND WILL REPEAT THE MESSAGE OF 4.3.3.20 


4.3.3.22 THE PROGRAM WILL TYPE ‘'R'’ TO INDICATE THAT IT 
HAS STARTED AND WILL COMMENCE TESTING AT TEST 1 


4.3.4 PROGRAM RESTART WITH SWO1=1 


NOTE: THIS WILL ONLY WORK WHEN A SINGLE DEVICE IS SELECTED 
IT WILL NOT WORK IF MULTIPLE DEVICES ARE SELECTED 
IF ma tie sy ites WERE PREVIOUSLY eed LOAD 000200, 
ULTIPLE DEVICE QUESTION 


cee SELECT SWOO=1 AND ANSWER ‘'NO"' TO THE M 


* 4.3.4.1 SET SWO1=1 IN SWITCH REG (LOC. 176) 
4.3.4.2 TYPE 200G. 
4.3.4.3 PROGRAM WILL START. 


4.3.4.4 THE PROGRAM WILL TYPE ‘‘TEST PC-"' AND WAIT FOR AN INPUT FROM 
THE TELETYPE KEYBOARD 


4.3.4.5 TYPE IN THE ADDRESS OF THE TEST AT WHICH THE PROGRAM IS TO 
BE STARTED FOLLOWED BY A <CARRIAGE RETURN> 


4.3.4.6 THE PROGRAM WILL TYPE ‘'R'’ TO INDICATE THAT IT HAS STARTED 
TESTING AT THE SELECTED TEST 


NOTE: CARE MUST BE TAKEN WHEN 1H HIS F 
SINCE THERE IS NO PRCTECTION AGAINS 
THAT IS IN THE MIDDLE OF A TEST 
4.3.5 PROGRAM RESTART WITH SW14 =1 
NOTE: THIS WILL ONLY WORK WHEN A SINGLE DEVICE IS SELECTED 
SEE NOTE IN 4.3.4 FOR MORE DETAILS 
4.3.5.1 SET SW14=1 IN SWITCH REG. (LOC. 176) 


4.3.5.2 TYPE 2006. 


EATURE IS USED 
T SELECTING AN ADDRESS 
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5.1 


6.1.2 
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4.3.5.3 PROGRAM WILL START. 


4.3.5.4 THE PROGRAM WILL TYPE ‘'LOCK_ON SELECTED TEST ? (Y OR N)-"' 
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
OR N 


4.3.5.5 TYPE IN THE APPROPRIATE ANSWER YES O FOLLOWED BY A 
<CARRIAGE RETURN> 


IF A_NO ANSWER IS GIVEN: THIS LOCK ON TEST WILL BE IGNORED 
AND_THE PROGRAM WILL TYPE ‘'R’’ TO INDICATE THAT IT HAS STARTED 
TESTING AT TEST 1 

4.3.5.6 r A_YES ANSWER WAS GIVEN: THE PROGRAM WILL ACT AS FOLLOWS... 
THE PROGRAM WILL TYPE "'R'’ TO INDICATE THAT IT HAS STARTED 
a ING 7 ie 1 ae WILL REMAIN IN TEST 1 UNTIL HALTED 
Y IS STRUCK ON THE TELETYPE ,THE PROGRAM 

WILL FREEZE *ON THE NEXT TEST UNTIL A KEY IS STRUCK ON 
THE TELETYPE AND SO FORTH THRU THE PROGRAM. IF SWO1 =1_ IT 

WILL PERFORM AS _IN SECTION 4.3.4 ALLOWING GONE TO FREEZE 

ON A SELECTED TEST RATHER THAN DEFAULTING TO TEST 1 


CPERATING PROCEDURE 


OPERATIONAL SWITCH SETTINGS (INTERNAL TO THE CPU, ACCESSED VIA LOC. 176). 
5 HALT ON ERROR 


Swi5 =1 

SW14 =1 LOOP ON CURRENT TEST 

SW13 =1 INHIBIT ERROR TYPEOUT 

Swil =1 INHIBIT ITERATIONS 

Sw10 =1 ESCAPE TO NEXT TEST ON ERROR 

SwO9 =1 LOOP ON ERROR 

$w01 =1 RESTART PROGRAM AT SELECTED TEST 

SwO00 =1 eeakiney vec AND edb A aeetaaee ADRESSES 
&PARAMETERS AFTER A PROGRAM RESTART 

TO INHIBIT “‘END OF PASS*’ TYPEOQUT = TURN TELETYPE OF F 


ERRORS 


ERROR HALTS (UNDER 
THERE ARE FOUR DIS 


LSI ALL HALT ERRORS RETURN CONTROL TO O.D.T.) 
TINCT ERROR TYPEOUTS 
PC+2 = ERROR 


PC 
WHERE PC +2 IS THE ADDRESS OF THE CALL TO THE ERROR HANDLER +2 
REFER TO THE ABOVE "‘HLT’’ IN DIAGNOSTIC FOR ERROR DESCRIPTION 


CHECK ADDRESS @ RXCSR: TO LOCATE THE DEVICE PRFSENTLY UNDER 
TEST WHEN RUNNING MULTIPLE DEVICES 


PC ~ B 2 eeisien ERROR PC 
REGIS EXPECTED ACTUAL 
TORKAX” YYYYYY 227222 


WHERE 16XXXX IS THE ADDRESS OF THE FAILING DEVICE REGISTER 


SEQ 0007 
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6.1.3 


6.1.4 


6.1.5 


6.2 
6.2.1 


6.2.2 


6.2.3 


6.2.4 


6.3 
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WHERE YYYYYY IS THE EXPECTED CONTENTS OF THAT REGISTER 
WHERE Z2Z2ZZZ IS THE ACTUAL CONTENTS OF THAT REGISTER 
PC ifte A ehieet ERROR PC 
REGIST EXPECTED ACTUAL 
TEXKRXS YYYYYY 222222 
WHERE 16XXXX IS THE ADDRESS OF THE FAILING RECEIVER (RXDBUF) REGISTER 
WHERE YYYYYY IS THE EXPECTED DATA CONTENTS OF THAT REGISTER 
WHERE 222222 IS THE ACTUAL DATA CONTENTS OF THAT REGISTER 
Ste Bate ERROR PC 
REGIST EXPECTED ACTUAL 
NGXKAX YYYYYY 222722 
WHERE 16XXXX IS THE ADDRESS OF THE FAILING TRANSMITTER (TXCSR) REGISTER 
WHERE YYYYYY IS THE EXPECTED CONTENTS OF THAT REGISTER 
WHERE 222222 IS THE ACTUAL CONTENTS OF THAT REGISTER 


ERROR DESCRIPTIONS 
SEE LISTINGS FOR DETAILS OF ERRORS 


ERROR RECOVERY 


SW15 =0 
IF THE PROGRAM IS RUN WITH SW15 =0 ,NO OPERATOR ACTION IS 
REQUIRED TO CONTINUE TESTING 


SWi5 =1 

IF THE Pb a IS RUN WITH SW15 =7 ,TO CONTINUE TESTING 
AFTER THE PROGRAM HAS HALTED »PRESS THE PROCESSOR 
CONSOLE “‘CONTINUE SWITCH’ 


NOTE: THE PC + 2 OF THE “'HLT’’ WILL BE DISPLAYED IN THE DATA LIGHTS 


ILLEGAL INTERRUPTS 
IF AN INTERRUPT OCCURS TO A VECTOR ADDRESS NOT SELECTED 


ADDRESS AT PROGRA 
HALTS IS 2 GREATER THAN THE ADDRESS TO WHICH Tue INTERRUPT 
OCCURED. THE PROGRAM MUST BE RESTARTED AT 000200 TO 
RECOVER FROM THIS ERROR. 


ADDITIONAL TROUBLESHOOTING AIDS ERRCNT: & PASCNT 
CHECK THESE TWO TAG LOCATIONS FOR TOTAL # OF ERRORS AND PASSES RESPECTIVELY. 
LOADING 000200 AND RESTARTING WILL CLEAR THESE LOCATIONS. 


F PASS ROUTINE 
pg oo! iiane MENTIONED HERE § 98 CONVENIENCE 


“ oO 


SEQ 0008 
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7.1 


7.2 


7.2.1 


7.2.2 


7.3 


7.3.1 


7.4 


10-DEC- 


END OF PASS TAPE Y 
1OXXXX = DEVICE 


WHERE Y IS THE TAPE LOADED 

WHERE 16XXXX IS THE DEVICE’S BASE REGISTER ADDRESS 
TO INHIBIT THIS TYPEOUT = TURN TELETYPE OFF 
RESTRICTIONS 


ete te fee 
O 16(10) DEVICES MAY BE TESTED. wove ver. THEY 
MUST OMAVE CONTIGUOUS ADDRESSES AND VECTORS 


NOTE: IF ALL DEVICES UNDER TEST HAVE THE SAME INTERRUPT VECTOR 
YOU CAN CHANGE | "ZERO: #10 BASE LV ;NEXT BLOCK 


0 app #0,BASEIV 
THEREBY THE VECTOR ADDRESSES WILL NOT BE’ 
UPDATED AFTER EACH PASS. 


DISQUALIFYING DEVICES WHEN eee By iit DEVICES 
ph RUNNING MULTIPLE DEVICE ACTIVE BIT IS SET 
FOR EACH seve RUNNING UNDER TEST. IE. BIT O FOR 
DEVICE 0 BIT 15 FOR DEVICE 15 

TO DISQUALIFY DEVICES: 


IF DEVICE 0 IS TO BE DISQUALIFIED ,SIMPLY RESTART 
PROGRAM WITH SWOO =1 AND OMIT THE FIRST DEVICE. 


THRU 15 OR ANY Spt ow 
2«.eLOAD THE Ah S ACTREG: 

S (ACTIVE =1, NONACTIV re 0) 

OSE DEVICES ARE TO BE DISQUALIFIED 


7.2.2.1 i. RESTART...TYPE 200G.. 
THE PROGRAM WILL CONTINUE WITH THE DEVICE IT WAS IN BEFORE HALTING. 


nw 


ALIF 


zo 


Fe2ebo2 coves T SWOO=1 IN SWITCH REG (LOC. 176) AND TYPE 200G.... 


ANSWER THE *aUESTION 21ST DEVICE : ETC. ccccencece 
weeeTHE PROGRAM WILL CONTINUE with DEVICE 0 


7.2.2.3 IF ALL DEVICES ARE DISQUALIFIED BY MISTAKE _ THE PROGRAM 
WILL TYPEOUT AN ERROR MESSAGE.......TYPE 2006. 


CABLE DELAYS 
NOTE: EXTERNAL LOOP BACK TESTS ONLY (MODEM CABLE WITH H315 CONNECTOR ON) 


TO PROVIDE sure I 1Eat DELAY FOR CLOCK SIGNAL OVER THE CABL e. 

LOCATION ‘‘HOLD:"* MUST BE MCDIFIED TO ACCOMODATE FOR FASTER MACHINES. 
PRESENTLY “HOLD: "220 IS SUFFICIENT TIME ON AN 11/21 MACHINE. 

BASICALLY DON'T TRY TO EXCEED 10K TO 12K RATE USING THE EiA DRIVERS 


TO USE THE "*XOR"’ TESTER ,THE BRANCH AROUND THE *'XOR"’ 


SEQ 0009 
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CODE MUST BE PATCHED TO A ‘‘NOP’’. (SEE LISTINGS FOR DETAILS) 


8. DEFAULT PARAMETERS: 


1ST DEVICE: RECEIVER CONTROL REGISTER ADDRESS= RXCSR: 174300 
VECTOR ADDRESS=- DURIV: 330 
ARE YOU RUNNING MULTIPLE DEVICES ?= NO MULTD: 0 
LAST DEVICE: RECEIVER CONTROL REGISTER ADDRESS= LASTADD: 0 
# OF SYNC CHARS SELECTED = 2 SYNCNO: 377 

1S SEC XMIT SWITCH E55=2 ON?= YES SEXMIT: 377 

IS SEC REC SWITCH E55-3 ON?= YES SEREC: 377 


IS OPT CLR ENABLE SWITCH E55=-1 ON?= YES OPTCLR: 377 
DO YOU HAVE THE EXTERNAL MODEM BYPASS JUMPER 


CONNECTOR ON (H315)= YES JMRBY: 377 
9. PROGRAM DESCRIPTION 
* 
«REM * 
9.1 THIS PROGRAM PERFORMS THE OFFLINE COMBINED (TRANSMITTER & RECEIVER) 
TIMING & INTERRUPT TESTING OF THE DEVICE 
SEE LISTING FOR DETAILS ‘ 
-REM * 
10. FLOW CHARTS: RECEIVER FLOW, TRANSMITTER FLOW, TRANSMITTER & RECEIVER FLOW 
11. REVISION HISTORY 


proves DIAGNOSTIC WAS MODIFIED TO WORK IN 11/21 SBC- 


ES 
PRIORITY 340 WAS CHANGED TO 300 wt + ie uae 
DEFAULT CSR AND VECTOR ADDRESSES WERE C 
VECTOR 140 WAS cite h34 TO ODT ADDRESS. AND “ALSO 
BEVNT HANDLED WITH A MESSAGE. 
12 Piet iens WAS RENAMED TO CNDUUAO. 
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6489 
6583 
6584 
6585 
6596 
6610 . 
6611 
6612 
6673 
6674 
6879 
7007 
7008 .SBTTL APT COMMUNICATIONS ROUTINE 
(2) MeBRRESBEBABABAAASLASZLALALLALALELESZLASLALZELESZEELER ERE SESE RE RRR RRR RRA E SS 
(1) 000000 112767 000001 000236 $ATY1: MOVB #1,SFFLG 3:TO REPORT FATAL ERROR 
(1) 000006 112767 000001 000226 $ATY3: MOVB #1.$MFLG °:TO TYPE A MESSAGE 
(1) 000014 000403 BR SATYC 
(1) 000016 112767 000001 000220 $ATY4: MOVB #1,SFFLG 33TO ONLY REPORT FATAL ERROR 
(1) 000024 SATYC: 
(3) 000024 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
(3) 000026 010146 MOV R1,-(SP) +:PUSH R1 ON STACK 
(1) 000030 105767 000206 TSTB = $MFLG ;3SHOULD TYPE A MESSAGE? 
(1) 000034 001450 BEQ ‘IF NOT: 
(1) 000036 1227607 000001 001502 CMPB #APTENV,SENV i OPERATING UNDER APT? 
(1) 000044 001031 BNE 3$ F 
(1) 000046 132767 000100 001473 BITB #APTSPOOL,$ENVM i 3 SHOULD SPOOL MESSAGES? 
(1) 000054 001425 BEQ F NOT: BR 
(1) 000056 017600 900004 MOV a4(SP),RO TIGET MESSAGE ADDR 
(1) 000062 062766 000002 000004 ADD #2,4(SP) 7:BUMP RETURN ADDR. 
(1) 000070 005767 001432 1$: TST SMSGTYPE ::SEE IF DONE W/ LAST XMISSION? 
(1) 000074 001375 BNE 1s t:1F NOT: WAIT 
(1) 000076 010067 001440 RO, $MSGAD 
(1) : PUT — IN MAILBOX 
(1) 000102 105720 2$: TSTB (RO)+ s7F IND END OF MESSAGE 
(1) 000104 001376 BNE $ 
(1) 000106 166700 001430 SUB SMSGAD, RO ::SUB START OF MESSAGE 
(1) 000112 006200 ASR 23 6et MESSAGE ht IN Dasani 
(1) 000114 010067 001424 MOV Re »SMSGLGT ::PUT LENGTH IN MAILBOX 
(1) 000120 012767 000004 001400 MOV #4 SMSGTYPE TELL APT TO TAKE MSG. 
(1) 000126 000413 BR 
(i) 000130 017667 000004 000016 3$: MOV a4(SP) ,4$ :3PUT MSG ADDR IN JSR LINKAGE 
(1) 000136 062766 000002 000004 ADD #2,4(SP) P RETURN ADDRESS 
(3) 900144 016746 177626 MOV 177776, -(SP) ::PUSH 155946 ON STACK 
(1) 000150 004767 012736 JSR PC, $TYPE >:CALL TYPE MACRO 
(1) 000154 000000 4$: “WORD 0 
(1) 000156 5$: 
(1) 000156 105767 000062 10$: TSTB SFFLG 77SHOULD REPORT FATAL ERROR? 
(1) 000162 001416 BFQ 12$ T:1F NOT: 
(1) 000164 005767 001356 TST SENV 2 sRUNNING UNDER APT? 
(1) 000170 001413 BEQ 12$ N 
(1) 000172 005767 001330 11$: TST SMSGTYPE i SFINISHED LAST MESSAGE? 
(1) 000176 001375 BNE 11$ WAIT 
(1) 000200 017667 000004 001322 MOV a4(SP) SFATAL *:GET "ERROR 
(1) 000206 062766 000002 000004 ADD #2,4(SP) P RETURN ADDR. 
(1) 000214 005267 001306 INC SMSGTYPE ti TELL abi? "0 TAKE ERROR 


SEQ 0012 
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8146 .LIST ME 
8145 *NLIST MC ,MD,CND 
8148 000246 PRGFRT “/DUV11 CNDUU-A TAPE E /,*/CNDUU-A/,“/END OF PASS TAPE E/ 
(1) 000246 SHEADER */1977/,<DUV11 CNDUU=A TAPE E >,<CNDUU-A>,<END OF PASS TAPE E> 
(3} :DUV11 CNDUUSA_TAPE E 
(2) [COPYRIGHT 1977, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 
(2) ZSTARTING PROCEDURE 
(2) :TYPE 2006 ; 
(2) :PROGRAM WILL TYPE ‘DUV11 CNDUU-A TAPE E ' 
(2) [PROGRAM WILL TYPE ‘'R'’ TO INDICATE THAT TESTING HAS STARTED 
(2) TAT THE END OF A PASS, PROGRAM WILL TYPE "END OF PASS TAPE E” 
(2) SAND THEN RESUME TESTING 
(2) .TITLE CNDUUSA 


CNDUU-A_MACY11 
2 CNDUUA.M11 


WANT 
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‘ C 2 
CATIONS ROUTINE 
; TRAP CATCHER FOR ILLEGAL INTERRUPTS. 


SEQ 0015 
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(3) 000152 000000 -y 
(3) B00 4 000156 -¢ 
(3) 0156 00000 wn, 
(3) Boog 00016 he 
(3) 000162 00000 oy 
(3) 000164 000166 he 
(3) 000166 000000 wy 
(? 00017 4 DEES he 
(3) 000172 00000 HALT 
(3) 000174 000176 ~*2 
(3) 000176 000000 HALT 
(3) sits 000202 +2 
(3) 000202 000900 HALT 
(3) 000204 000206 -*2 
(3) 000206 000000 HALT 
(3) 000210 000212 +2 
(3) 000212 000000 HALT 
(3) 000214 000216 +2 
(3) 000216 000000 HALT 
(3) 000220 000222 +2 
(3) 000222 000000 HALT 
(3) 000224 000226 +2 
(3) 000226 000000 HALT 
(3) 000230 000232 +2 
(3) 000232 000000 HALT 
(3) 000234 000236 +2 
(3) 000236 000000 HALT 
(3) 000240 000242 +2 
(3) 000242 000000 HALT 
(3) 000244 000246 +2 
(3) 000246 000000 HALT 
(3) 000250 000252 +2 
(3) 252 000000 HALT 
(3) 000254 000256 +2 
(3) 000256 000000 HALT 
(3) 000260 000262 +2 
(3) 000262 000000 HALT 
(3) 000264 000266 +2 
(3) 000266 000000 HALT 
(3) 000270 000272 +2 
(3) 000272 000000 HALT 
(3) 000274 000276 +2 
(3) 000276 000000 HALT 
(3) 000300 000302 +2 
(3) 000302 000000 HALT 
(3) 000304 000306 +2 
(3) 000306 000000 HALT 
(3) 000310 000312 +2 
(3) 000312 000000 HALT 
(3) 000314 000316 +2 
(3) 000316 000000 HALT 
(3) 000320 000322 -*2 
(3) 000322 000000 HALT 
(3) 000324 000326 +2 
(3) at 000000 HALT 
(3) 000330 000332 #2 


ae 
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(3) 000332 800000 _ 
(3) 4 4 000356 + 
(3) 000336 88088 wy 
(3) 000340 00034 + 
(3) 000342 000000 -"y 
(3) 000344 000346 he 
(3) 000346 $0008 HALT 
(3) 000350 00035 +2 
(3) 000352 000000 —_ 
(3) 000354 000356 + 
(3) 000356 000000 HALT 
er 800368 00036 + 
(3) 000362 00090 HALT 
(3) 000364 000366 he 
(3) 000366 000000 HALT 
(3) 000370 000372 +2 
(3) 000372 000000 HALT 
(3) 000374 000376 +2 
(3) 000376 000000 HALT 
(3) 000400 000402 +2 
(3) 000402 000000 HALT 
(3) 000404 000406 +2 
(3) 000406 000000 HALT 
(3) 000610 000412 +2 
(3) 000412 000000 HALT 
(3) 000414 000416 +2 
(3) 000416 000000 HALT 
(3) 000420 000422 +2 
(3) 000422 000000 HALT 
(3) 000424 000426 +2 
(3) 000426 000000 HALT 
(3) 000430 000432 «+2 
(3) 000432 000000 HALT 
(3) 000434 000436 +2 
(3) 000436 000000 HALT 
(3) 000440 000442 +2 
(3) 000442 000000 HALT 
(3) 000444 000446 +2 
(3) 000446 000000 HALT 
(3) 50 000452 +2 
(3) 000452 000000 HALT 
(3) 000454 000456 +2 
(3) 000456 000000 HALT 
(3) 000460 sales t3 +2 
(3) 000462 000000 HALT 
(3) 000464 000466 +2 
(3) 66 0900000 HALT 
(3) 000470 000472 +2 
(3). 000472 - 000000 HALT 
(3) 000474 000476 +2 
(3) 000476 000000 HALT 
(3) 000500 000502 +2 
(3) 000502 000000 HALT 
(3) 000504 000506 +2 
(3) 000506 000000 HALT 
(3) 000510 000512 +2 
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(3) 000512 000000 - 
(3) 000514 000516 + 
(3) 000516 Sp oegS oy 
(3) 0005 S 0005 3 .¢ 
(3) 0005 00000 —— 
3) 000524 000526 + 
(3) 000526 000000 — 
(3) 000530 000532 .+ 
(3) 000532 Bp 008e HALT 
(3) 000534 000536 +2 
(3) 000536 000000 HALT 
(3) 000540 000542 +2 
(3) 000542 000900 HALT 
(3) 000544 000546 +2 
(3) 000546 000000 HALT 
(3) 000550 000552 +2 
(3) 000552 000000 HALT 
(3) 000554 000556 +2 
(3) 000556 000000 HALT 
(3) 00560 000562 +2 
(3) 000562 000000 HALT 
(3) 000564 000566 +2 
(3) 000566 000000 HALT 
(3) 000570 000572 +2 
(3) 000572 000000 HALT 
(3) 000574 000576 + 
(3) 000576 000000 HALT 
(3) 000600 000602 + 
(3) 000602 000000 HALT 
(3) 000604 000606 + 
(3) 000606 000000 HALT 
(3) 000610 000612 + 
(3) 0006 000000 HALT 
(3) 000616 + 
(3) 000616 000000 HALT 
(3) 000620 000622 + 
(3) 000622 000000 HALT 
(3) 000624 000626 + 
(3) 000626 000000 HALT 
(3) 000630 000632 +2 
(3) 000632 000000 HALT 
(3) 000634 000636 + 
(3) 000636 000000 HALT 
(3) 000642 +2 
(3) 000642 000000 HALT 
(3) 000644 000646 + 
(3) 000646 000000 HALT 
(3) 000650 000652 + 
(3) 06 000000 HALT 
(3) 000654 000656 + 
(3) 000656 000000 HALT 
(3) 000662 .¢ 
(3) 000662 000000 HALT 
(3) 000664 000666 + 
(3) 000666 000000 HALT 
(3) 000670 000672 +2 
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(3) 000672 000000 HALT 
(3) 900674 000676 + 
(3) 00676 000000 Hatt 
(3) 000700 000702 + 
(3) 000702 000000 HALT 
(3) 000704 000706 + 
(3) 000706 900009 HALT 
(3) 900719 0071 +2 
(3) 000712 000000 HALT 
@) 000714 000716 
(3) 000716 000000 Hatt 
(3) 000720 000722 
(3) 000722 000900 fact 
(3) 000724 000726 
(3) 000726 000000 HALT 
(3) 000730 000732 +2 
(3) 000732 000000 HALT 
(3) 000734 000736 +2 
(3) 000736 000000 HALT 
(3) 000740 000742 +2 
(3) 000742 000000 HALT 
(3) 000744 000746 42 
(3) 000746 000000 HALT 
(3) 000750 000752 +2 
(3) 000752 000000 HALT 
(3) 000754 000756 +2 
(3) 000756 000000 HALT 
(3) 000760 000762 +2 
(3) 000762 000000 HALT 
(3) 000764 000766 +2 
(3) 000766 000000 HALT 
(3) 000770 000772 +2 
(3) 000772 000000 HALT 
(3) 000774 000776 +2 
(3) 000776 000000 HALT 
(1) 001000 EQUAT 
2) "SBITL BASIC DEFINITIONS 
(2) 001 1F NB 
(2) s@)NITIAL ADDRESS OF THE STACK POINTER *** «ee 
(3) STACK= 
(2) IFF 
(3) TeINITIAL ADDRESS OF THE STACK POINTER *#*-4100 ee 
(3) 007800 oo 
(3) “EQUIV EMT, ERROR :sBASIC DEFINITION OF ERROR CALL 
2) “EQUIV 107. SCOPE S:BASIC DEFINITION OF SCOPE CALL 
(3) 
(3) ; *MI SCELLANEOUS DEFINITIONS 
(3) 000011 ht= 11 CODE FOR HORIZONTAL TAB 
(3) 000012 LF= 12 CODE FOR LINE FEED 
tS} stds ERLE } 0 :3CODE OR CARRLACE RETURN@LINE FEED 
(3) 177776 PS: 10 176 :IPROCESSOR STATUS WORD 
(3) “EQUIV PS,PSW 
(3) 177774 STKLMT= 177774 s:STACK LIMIT REGISTER 
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(2) 17777 PIRQ= 177772 ;:PROGRAM INTERRUPT REQUEST REGISTER 
(2) 17757 DSWR= 17757 ZSHARDWARE SWITCH REGISTER 
(2) 177570 DDISP= 177576 *sHARDWARE DISPLAY REGISTER 
(2) seeeee THE FOLLOWING ODT’START ADDRESS FOR SBC 11/21 IS ADDED 
(2) 170000 ODTST= 170000 
(2) ;*GENERAL PURPOSE REGISTER DEFINITIONS 
(2) 000000 RO= %0 3;GENERAL REGISTER 
(2) 000001 Riz %1 S:GENERAL REGISTER 
(2) 00000 Re: x2 ::GENERAL REGISTER 
(2) 00000 R3= % > :GENERAL REGISTER 
(2) 000004 R4= %4 7:GENERAL REGISTER 
(2) 000005 RS= “5 7:GENERAL REGISTER 
(2) 000906 R6= %6 Z:GENERAL REGISTER 
(2) 000007 R7= 17 7:GENERAL REGISTER 
(2) 000006 SP= 16 S:STACK POINTER 
(2) 000007 PC= 47 ::PROGRAM COUNTER 
(2) ;*PRIORITY LEVEL DEFINITIONS 
(2) 000000 PRO= sO s;PRIORITY LEVEL 0 
(2) 000040 PRi=z = 40 ::PRIORITY LEVEL 1 
(2) 000100 PR2= 100 S:PRIORITY LEVEL 2 
(2) 000140 PR3=  —s-- 140 S:PRIORITY LEVEL 3 
(2) 000200 PR4= 200 s:PRIORITY LEVEL 4 
(2) 000240 PRS= 40 S:PRIORITY LEVEL 5 
(2) 000300 PR6= 00 ::PRIORITY LEVEL 6 
is} 000340 PR7= 340 ssPRIORITY LEVEL 7 
(2) :*''SWITCH REGISTER’ SWITCH DEFINITIONS 
(2) 100000 $wi5= 100000 
(2) 040000 SW14= 40000 
(2) 020000 SW13= 20000 
(2) 010000 SWi2= 10000 
(2) 004000 SWil= 4000 
(2) 002000 SW10= 2000 
(2) 001000 SwO9= 1000 
(2) 00400 SwOB= 400 
(2) 00200 SwO7= 200 
(2) 000100 Sw06= 100 
(2) 000040 Sw05= 40 
(2) 000020 $w04= 20 
(2) 000010 SwO3= 10 
(2) 000004 SWwO2= 4 
(2) 000002 SwOl= 2 
(2) 000001 Sswo0= 1 
(2) ~EQUIV $W09,SW9 
(2) -EQUIV SWOB;SwW 
(2) sEQUIV SWO7.SW7 
(2) -EQUIV SW06;SW6 
(2) EQUIV 05,SW5 
(2) sEQUIV SW04: Sw 
(2) eEQUIV SW03,SW3 
(2) sEQUIV SwWw02.SW2 
(2) -EQUIV SwO1.SwW1 
(2) -EQUIV SwWw00,SwWO 
(2) 001 -IF B <> 
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(2) -*DATA BIT DEFINITIONS (BIT00 TO B1T15) 
(2) 100000 B1T15= 100060 
(2) 040000 BIT14= 40000 
(2) 020000 BIT13= 20000 
(2) 010000 BITi2= 10000 
(3) 004000 BIT11= 4000 
(2) 002000 BIT10= 2000 
(2) 007000 BITO9= 1000 
(2) 000400 BITO8= 400 
(2) 000200 BITO7= 200 
(2) 000100 BIT06= 100 
(2) 000040 BITOS= 40 
(2) 000920 BIT04= 20 
(2) 000010 BIT03= 10 
(2) 000004 BITO2= 4 
(2) 000002 BITOI= 2 
(2) 000001 BITOO= i 
(2) -EQUIV BiT09,B1T9 
(2) “EQUIV B1:08,B1T8 
(2) “EQUIV BITU7,BIT? 
(2) -EOUIV BIT06,81T6 
(2) -—LQUIV B1T05,B175 
(2) -EQUIV BITO4,BIT4 
(2) “EQUIV BITO3,BI1T3 
(2) “EQUIV BITO2,BIT2 
(2) eEQUIV BITO1,B1T1 
(2) “EQUIV BITOO,BITO 
(2) 000 SENDC 
(2) 001 -IF B <> 
(2) :*BASIC “'CPU'' TRAP VECTOR ADDRESSES 
(2) 000004 ERRVEC= 4 3; TIME OUT AND OTHER ERRORS 
(2) 000010 RESVEC= 10 2 sRESERVED AND ILLEGAL INSTRUCTIONS 
(2) 000014 TBITVEC=14 33 BIT 
(2) 000014 TRIVEC= 14 TRA ACE T 
(2) 000014 BPTVEC= 14 + BREARPOINT TRAP (BPT 
(2) 000020 IOTVEC= 20 : 3 INPUT/OUTPUT TRAP AS #eSCOPE** 
(2) 000024 PWRVEC= 24 OWER FAIL 
(2) 000030 EMTVEC= 30 3 $EMULATOR TRAP (EMT) **ERROR** 
(2) 000034 TRAPVEC=34 3:°"TRAP*’’ TRAP 
(2) 000060 TKVEC= 60 SITY KEYBOARD VECTOR 
(2) 000064 TPVEC= 64 PRINTER VECTOR 
(2) seeeee = THE FOLLOWING préAn VECTOR AND bie CLOCK VECTOR ARE INCLUDED 
(3) 000100 {kvEC= 100 s:LINE CLOCK VECTOR 
(2) 000140 BRKVEC= 140 S:BREAK VECTOR 
(2) 000240 PIRQVEC=240 7;PROGRAM INTERRUPT REQUEST VECTOR 
(2) 000 -ENDC 
(1) 001000 $SETVEC 
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: ; sSTANDARD INTERRUPT VECTORS 
(2) 
(2) 000174 22174 
(2) 000174 000000 DISPREG:0 
(2) 000176 000000 SWREG:0 
(2) 000200 -=200 
$¢° 000200 000167 001746 JMP » START 3G0 TO START OF PROGRAM 
(2) 
3} 000204 SVARIA 
(2) 001100 -=1100 
(2) 001100 000000 »WORD 0 
is} 001102 177570 LIGHTS:177570 
3 
ts) PROGRAM CONTROL PARAMETERS 
(2) 001104 000000 RETURN: 0 
(2) 001106 000000 NEXT: 0 ADDRESS oF NEXT TEST TO BE EXECUTED 
(2) 001110 000000 LOCK: 90 ;ADDRESS FOR LOCK ON nen DATA 
(2) 001112 000000 PASCNT: 0 ;ADDRESS CONTAINING PASS COUNT 
(2) 001114 000000 ERRCNT: 0 3€ NT 
s} 001116 000000 SAVSP: 0 ;STACK POINTER STORAGE 
iH PROGRAM VARIABLES 
(2) 001120 000020 HOLD: 20 Bs ie ooyeed STORAGE=DELAY TIME FOR Swett 
(2) 001122 000000 SHIFT: 0 ;TEMPORARY STORAGE= # OF SHIFTS PER C 
(2) 001124 000000 COUNT: 0 ; TEMPORARY STORAGE= # OF TIMES A CHAR ath BE SENT 
(2) 001126 000000 SAVPC: 0 PROGRAM COUNTER STORAGE 
(2) 001130 000000 HLDO 0 
(2) 001132 000000 HLD1 0 
(2) 001134 000000 HLD2 0 
(2) 001136 000000 HLD3 0 
(2) 001140 000000 HLD4 0 
(2) 001142 000000 HLDS: 0 
iH 001144 000000 HLD6: 0 
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(2) PROGRAM, CONVERSATIONAL PARAMETERS 
(2) 001146 77 SYNCNO: :BYTE 3/7 =; ARS REQ"D FOR SYNC'ZATION 
(2) 001147 77 EXMIT: BYTE 377 SEC XMIT JUMPER “'IN’ 
(2) 001150 77 EREC: :BYTE 377 SEC REC JUMPER IN’ 
(2) 001151 = 377 OPTCLR: BYTE 377 OPTIONAL JUMPER CLR. "IN 
(2) OO115¢ 909 MULTD: BYTE 9 NO MULTIPLE DEVICE FLAG Lae 
(2) 00115 377 JMRBY: BYTE 577 EXTERNAL MODEM BYPASS JUMPER "IN 
(2) 
(2) ;PROGRAM MULTIPLE DEVICE PARAMETERS 
(2) 001154 000000 BASEADD: 0 ROG CONTROLLED 1ST DEVICE ADDR 
(2) 001156 000000 KEEPADD: 0 SAVED 1ST DEVICE ADDR 
(2) 001160 000900 LASTADD 0 ZLAST DEVICE RXCSR ADDR 
(2) 001162 000000 I 0 SPROG CONTROLLED IV 
(2) 001164 000000 KEEPIV: 0 :SAVED_INTR VECTOR 
(2) 001166 000000 ACTREG: 0 ZACTIVE REGISTER ,,,MODIFY THIS 
(2) LOCATION TO DISQUALIFY OR QUALIFY 
(2) SDEVICES (1= RUN,,,0= DON'T RUN) 
(2) 001170 000000 ROTADD: 0 ROTATING POINTER FOR ACTREG. POINTS 
2) ;10 DEVICE PRESENTLY UNDER TEST WHEN RUNNING MULTIPLE DEVICES 
2) PROGRAM CONTROL FLAGS 
(2) 001172 000 INIFLG: .BYTE 0 PROGRAM INITIALIZATION FLAG 
(2) 001173 000 STFLG: :BYTE 0 TEST START FLA 
(2) 001174 000 LOKFLG: “BYTE 0 ZLOCK ON CURRENT TEST FLAG 
(2) 001176 -EVEN 
(1) 001400 :=1400 
(1) 001400 $SYMBOLS 
(2) 
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(2) 
(2) 
(2) 
(2) sINSTRUCTION DEFINITIONS 
(2) 005746 PUSH1SP=5746 _ ;DECREMENT PROCESSOR STACK 1 WORD =TST (SP) 
(2) 005726 POP1SP=5726 ‘INCREMENT PROCESSOR STACK 1 WORD =TST <SP)+ 
(2) 010046 PUSHRO=10046 :SAVE RO ON STACK =MOV RO,-(SP) 
(2) 012600 OPRO=12 SRESTORE RO FROM STACK =MOV (SP)+,RO 
(3) 024646 PUSH2SP=24 SDECREMENT STACK TWICE =CMP =(SP),<(SP) 
(2) 022626 POP2SP=22626  §: INCREMENT STACK TWICE =CMP (SP)+,(SP)+ 
(2) yREGISTER INITIONS 
(2) “RXCSR BIT DEFINITIONS 
(2) 100000 psc=B1T1§ sDATA SET CHANGE 
(2) 040000 RING=BIT14 RIN 
(2) 020000 CTS=BIT13 'CLR TO SEND 
(2) 010000 CARDET=B1112 *CARRIER DETECT 
(2) 004000 RECACT=B1T11 SREC ACTIVE 
(2) 002000 SRD=BIT10 °SEC REC DATA 
(2) 001000 DSR=BIT9 “DATA SET RDY 
(2) 000400 STPSYN=B1T8 [STRIP SYNC 
(2) 000200 RXDONE=B1T7 [REC DONE 
(2) 000100 RINTEN=B1T6 *REC INTR ENABLE 
(2) 000040 DSINTE=BITS :DSC_INTR ENABLE 
(2) 000020 SYNSCH=BI 14 ?SYNC SEARCH 
(2) 000010 STD=BIT3 [SEC XMIT DATA 
(2) 000004 RTS=BIT2 :REQ TO SEND 
(2) 000002 DTR=BI1T1 [DATA TERM RDY 
(2) 000001 VOID=BITO 
(2) “RXDBUF BIT DEFINITIONS 
(2) 100000 RXERR=B1T15 :REC ERROR 
(2) 040000 OVRRUN=B1T14 OVERRUN 
(2) 020000 FRMERR=B1113 [FRAME ERROR 
(2) 010000 PARER=BIT12 “PARITY ERROR 
(2) -PARCSR BIT DEFINITIONS , 
(2) 001000 PAREN=B119 sPARITY ENABLE 
(2) 000400 EVPAR=B]T8 SEVEN PARITY SENSE 
(2) -PARCSR WRD DEFINITIONS 
(2) 030000 SYNINT=30000 sSYNC EXTERNAL MODE 
(2) 020000 SYNEXT=20000 ?SYNC INTERNAL MODE 
(2) 000000 1SYMOD=0 3 MODE 
(2) 000000 FIVE=0 SWORD LENGTH 5 BITS 
(2) 002000 $1xX=2000 : LENGTH 6 BITS 
(2) 004000 SEVEN-4000 SWORD LENGTH 7 BITS 
(2) 006000 E 1GHT=6000 *WORD LENGTH 8 BITS 
(2) 000000 NOPAR=0 [NO PARITY 
(2) 001000 ODDPAR=1000 [000 PARITY 
(2) 001400 EVEPAR=1400 “EVEN PARITY 
(2) -TXCSR BIT DEFINITIONS 
(2) 100000 DNA=B1T15 sDATA NOT AVAILABLE 
(2) 040000 MIDATA=BIT14 SMAINT DATA 
(2) 020000 CLK=BIT1 :CLK 
(2) 002000 BI Tw=B1T10 ‘BIT WINDOW 
(2) 000400 MRESET=B118 “MASTER RESET 
(2) 000200 TXDONE=BIT [XMIT DONE 
(2) 000100 TXINTE=BIT6 :KMIT INTR ENABLE 
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2) 000040 DNAINTE=BIT5 :DNA INTR ENAB 
(2) 000020 SEND=BI114 SEN 
(3) 000010 HDXEN=B1T3 : HDX/F DX 
(2) 000001 BREAK=B1T0 
(2) sTXCSR WRD DEFINITIONS 
(2) 000000 USER=0 SER MOD 
(2) 004000 MINT=4000 MAINT INT MODE 
(2) 010000 MEXT=10000 ‘MAINT EXT MODE 
(2) 014000 SYSTST=14000 >SYSTEM TEST MODE 
(1) 001400 .SCMTAG 6,6,$SYMBOLS,.,ENDTAB 
(2) “MACRO $$CMREG A,B 
(2) $REG'A: .WORD 0 s:CONTAINS (($REGAD)+°B) 
(2) .NLIST 
(2) $CM1=$CM1+1 
(2) $CM2=$(M2+2 
(2) LIST 
(2) ENDM  $$CMREG 
(2) “MACRO $SCMTMP A 
(2) STMP A: .WORD 0 s:USER DEFINED 
(2) SCHA=SCMG+1 
(2) art SSCMTMP 
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¢ ) .SBTTL COMMON TAGS 
(2) 001400 STARS 
(3) 001 vIF 
( ) 3 REAR RAAAAAAARAAAAEAAAEAAAAAARAAAAAAARAARARARAARAAEAARAAAARARAAAERAAAAEEAE 
(3) “FF 
(3) NLIST 
(3) “REPT 
(3) “LIST 
(3) 3 FRRAAARAAAAAE RAR AAEE AERA EERE EAE ERAAEAAHAEAARAEHERAARATE ET EARHED 
(3) “NLIST 
(3) SENDR 
(3) LIST 
(3) 000 -ENDC 
(2) [*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
(33 [*USED IN THE PROGRAM. 
(2) 001 .IF NB. 
(2) 001400 2. 
(2) FF 
(3) .=1100 
(2) 000 .ENDC 
(2) 001400 $CMTAG: z:START OF COMMON TAGS 
(2) 001 iF NB ENDTAB 
(2) 001400 000000 ai .WORD 0 
(2) $PASS: .WORD 0 z:CONTAINS PASS COUNT 
(2) 000 .ENDC 
(2) 001402 000 $TSTNM: .BYTE 0 :3CONTAINS THE TEST NUMBER 
(2) 001403 000 SERFLG: .BYTE 0 [: CONTAINS ERROR FLAG 
(2) 001404 000000 SICNT: .W 0 ?: CONTAINS SUBTEST ITERATION COUNT 
(2) 001406 000000 SLPADR: . 0 *:CONTAINS SCOPE LOOP ADDRESS 
(2) 001410 0600000 SLPERR: .WORD 0 S: CONTAINS SCOPE RETURN FOR ERRORS 
(2) 001412 000000 SERTTL: . 0 Z:CONTAINS TOTAL ERRORS DETECTED 
(2) 001414 000 SITEMB: .BYTE 0 ::CONTAINS ITEM CONTROL BYT E 
(2) 001415 01 SERMAX: .BYTE 1 S: CONTAINS MAX. ERRORS PER TEST 
(2) 001416 000000 SERRPC: .WORD 0 S: CONTAINS PC OF LAST ERROR | INSTRUCTION 
(2) 001420 000000 SGDADR: .WORD 0 ‘: CONTAINS ADDRESS OF ‘GOOD' DAT 
(2) 001422 000000 $B8D OR: .WORD 0 S: CONTAINS ADDRESS OF ‘BAD* DATA. 
(2) 001424 000000 $GDDAT: .WORD 0 33 ONTAINS *G00D" 
(2) 001426 000000 $BDDAT: .WORD 0 t: CONTAINS "BAD’ DATA 
(2) 001430 000000 “WORD 0 + :RESERVED=--NOT TO BE USED 
(2) 001432 000000 “WORD 0 
(2) 901434 000 SAUTOB: :BYTE 0 y;AUTOMATIC MODE INDICATOR 
(2) 001435 000 SINTAG: .BYTE 0 :: INTERRUPT MODE INDICATOR 
(2) 001436 000000 “WORD 0 
(2) 001440 177570 SWR .WORD DSWR : : ADDRESS OF SWITCH REGISTER 
(2) 001442 177570 DISPLAY: .WORD DDISP SADDRESS OF DISPLAY REGISTER 
(2) 001444 177560 $1kS: 177560 [TTY KBD STATUS 
(2) 001446 177562 $TKB: 177562 :TTY KBD BU UFFER 
(2) 001450 177564 SIPS: 177564 [TTY PRINTER STATUS REG. ADDRESS 
(2) 001452 177566 $IPB: 177566 TTY PRINTER BUFFER REG. ADDRE 
(2) 001454 000 $NULL: .BYTE 0 + CONTAINS NULL CHARACTER FOR Frits 
(2) 001455 002 $FILLS: .BYTE 2 
(2) “CONTAINS # OF FILLER CHARACTERS REQUIRED | ‘ 
(2) 001456 012 sluice: .evte 43 s INSERT FILL CHARS. AFTER A “LINE FEED 
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(2) 001457 000 STPFLG: .BYTE 0 z3""TERMINAL AVAILABLE*’ FLAG (B1T<07>=0=YES) 
(2) 001 IF B 6 
(2) »NLIS 
(2) $CM3=0 
(2) eLIST 
(2) .IFF 
(2) 000006 $CM3=6 
(2) 000 -ENDC 
(2) 001 .1F NE $CM3 
(2) 001460 000000 SREGAD: .WORD 0 3;CONTAINS THE ADDRESS FROM 
(2) ssWHICH ($REGO) WAS OBTAINED 
is} 000000 $CMi= 
(2) 000900 $CM2= 
(2) 000006 sREPT  $CM3 
+¢; oa \SCM1,\SCM2 
(3) 001462 SSCMREG \$CM1,\SCM2 
(4) 001462 000000 $REGO: .WOR 0 s3CONTAINS (($REGAD) +0) 
(4) 000001 SCM1=$CM1+1 
(4) 000002 SCM2=SCM2+2 
(3) 001464 SSCMREG \SCM1,\$CM2 
(4) 001464 000000 $REG1: .WORD 0 z3CONTAINS (($REGAD) +2) 
(4) 000002 $CM1=S$CM1+1 
(4) 000904 SCM2=SCM2+2 
(3) 001466 SSCMREG \SCM1,\S$CM2 
(4) 001466 000000 $REG2: .WORD 0 7CONTAINS ((S$REGAD) +4) 
(4) 000003 $CM1=$CM1+1 
(4) 000006 SCM2=$CM2+2 
(3) 001470 SSCMREG \$CM1,\$CM2 
(4) 001470 000000 $REG3: .WORD 0 33CONTAINS ((SREGAD) +6) 
(4) 000004 $CM1=$CM1+1 
(4) 000010 SCM2=$CM2+2 
(3) 001472 SSCMREG \SCM1,\SCM2 
(4) 001472 000000 S$REG4: .WORD 0 s3CONTAINS (($REGAD) +10) 
(4) 000005 $CM1=$CM1+1 
(4) 000012 SCM2=SCM2+2 
(3) 001474 SSCMREG \SCM1,\SCM2 
(4) 001474 000000 $REGS: .WORD 0 s:CONTAINS (($REGAD) +12) 
(4) 000006 $CM1=$CM1+1 
(4) 000014 $SCM2=S$CM2+2 
(2) 000 -ENDC 
(2) 001 .1F NB 6 
(2) 000000 $CM4=0 
(2) 000006 REPT 6 
(2) SSCMTMP \SCM4 
(3) -ENDR 
(3) 001476 SSCMTIMP \SCM4 
(4) 001476 000000 STMPO: .WORD 0 7;USER DEFINED 
(4) 000001 SCM4=S$C(M4+1 
(3) 001500 SSCMTMP \SCM4 
(4) 001500 000000 STMP1: .WORD 0 3;USER DEFINED 
(4) 000002 SCM4=$CM4+1 
(3) 001502 SSCMIMP \SCM4 
(4) 001502 000009 $TMP2: .WORD 0 7;USER DEFINED 
(4) 000003 $CM4=$CM4+1 
(3) 001504 SSCMTMP \SCM4 


CNDUU-A MACY11 3 ne | yespec-6e 100 nee 62-14 


CNDUUA.M11 29-0CT=-82 13: MON TAGS SEQ 0028 
(4) 001504 900000 STMP3: .WORD 0 s7USER DEFINED 
(4) 000004 $CM4=$CM4+1 
(3) 001506 SSCMTMP \SCM4 
(4) 001506 000000 STMP4: . WORD 0 3;USER DEFINED 
(4) 000005 S$CM4=$(M4+1 
(3) 001510 SSCMTMP \SCM4 
(4) 001510 000000 STMPS: .WORD 3;USER DEFINED 
(4) 000006 SCM4=$CM4+1 
(2) 000 ~ENDC 
(6) 001 -1F NE $SWR&4000 
(2) 001512 000000 STIMES: 0 37MAX. NUMBER OF ITERATIONS 
‘s) 000 -ENDC 
(2) 901 IF NE 10008$SWR 
(2) 001514 000000 SESCAPE :0 :zESCAPE ON ERROR ADDRESS 
(2) 000 eENDC 
(2) 001 -1F NE 20008$SWR 
14 001516 sh + 000377 we eASCIZ <207><377><377> ;;CODE FOR BELL 
(2) 001522 077 SQUES: .ASCII /?/ s QUESTION MARK 
(2) 001523 015 $CRLF: .ASCII <15> 7; CARRIAGE RETURN 
(2) 001524 000012 SLF: eASCIZ <12> szLINE FEED 
(2) 1IF NE 18., EVEN 
(2) 001526 STARS 
(3) 001 1F B 
(3) SERRA ARERR AARERA TERE AAA A TEER HARARE RARARAARERAAER THERE EES 
(3) IFF 
(3) eNLIST 
(3) REPT 
(3) LIST 
(3) FERRARA AA ARERR AA AAA AAA AEA AE AAA AAAE EAHA RA THERA RARRER EAHA EATS 
(3) eNLIST 
(3) ~ENDR 
(3) LIST 
(3) 000 -ENDC 
(2) 001 ~I1F NB ENDTAB 
(2) 001526 -SAPTBLS <ENDTAB> 
a -SBTTL APT MAILBOX-ETABLE 
(3) 001526 STARS 
(4) 002 IF 
(4) FRA AA AAA RAAAAAA AAT AA AAA TATE AA AAAAAAAAAEREAARAE RARER AAA EES 
(4) oIFF 
(4) eNLIST 
(2) Tist 
(4) PETTITT TIT I TTT 
(4) -NLIST 
(4) -ENDR 
(4) LIST 
(4) 001 eENDC 
(3) eNLIST ME 
(3) 3 
(3) ; 
(3) 
(3) ~1IF NDF ,AMSGTY,AMSGTY=0 
(3) LIF NDF ,ATESTN,ATESTN=0 
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(3) LIF NDF, APASS, APASS=0 

(3) SIIF NDF ADEVCT ,ADEVCT=0 

3} elIF NDF, AFATAL,AFATAL=0 

(3) 

(3) LIF NDF ,AUNIT, AUNIT=0 

(3) LIF NDF AMSGAD, AMSGAD=0 

(3) *1IF NDF .AMSGLG,AMSGLG=0 

(3) ~ LIF NDF ,AENV, AENV=0 o 
(3) “TIF NDF AENVM, AENVM=0 

(3) TIF NDF ASWREG,ASWREG=0 

(3) LIF NDF AUSWR,AUSWR=0 

(3) “TIF NDF ACPUOP, ACPUOP=0 

(3) [LIF NDF .AMAMS1.AMAMS1=0 

(3) TIF NDF AMTYP1 ,AMTYP1=0 

(3) “TIF NDF .AMADR1 .AMADR1=0 

(3) “TIF NDF AMAMS2.AMAMS2=0 

(3) “TIF NDF AMTYP2,AMTYP2=0 

(3) TIF ND “AMADRG MADRE=0 

(3) “LIF NDF AMAMS3,AMAMS3=0 

(3) -T TIF NDF AMTYP3.AMTYP3=0 

(3) “LIF NDF AMADR3,AMADR3=0 

(3) “TIF NDF AMAMS4 .AMAMS4=0 

(3) “TIF NDF AMTYP4AMTYP4=0 

(3) “TIF NDF AMADR4.AMADR4=0 

(3) [TIF NDF AVECT1,AVECT1=0 

(3) [TIF NDF AVECT2,AVECT2=0 

(3) “TIF NDF APRIORAPRIOR=0 

(3) “LIF NDF ABASE, ABASE=0 

(3) “TIF NDF .ADEVM. ADEVM=0 

(3) *1IF NDF.ACDW1.ACDW1=0 

(3) “LIF NDF .ACDW2,ACDW2=0 

(3) “LIF NDF .ADDWO,.ADDWO=0 

(3) LIF NDF .ADDW1.ADDW1=0 

(3) LIF NDF ADDW2,ADDW2=0 

(3) -LIF NDF ADDW3, ADDW3=0 

(3) LIF NDF ADDW4, ADDW4=0 

(3) “TIF NDF .ADDWS, ADDWS=0 

(3) TIF NDF ADDW6, ADDW6=0 

(3) -TIF NDF ADDW7, ADDW7=0 

(3) “LIF NDF ADDW8, ADDW8=0 

(3) “LIF NDF. ADDW9, ADDW9=0 

(3) “LIF NDF.ADDW10,ADDW10=0 

(3) “LIF NDF ADDW11.ADDW11=0 

(3) “TIF NDF ADDW1 +ADDUT2=0 

(3) TIF NDF ADDW13,ADDW13=0 

(3) “TIF NDF .ADDW14,ADDW14=0 

(3) "TIF NDF .ADDW15,ADDW15=0 

(3) "LIST ME 

(3) * EVEN 

(3) 001526 SMAIL: :;APT MAILBOX 
(3) 001526 000000 SMSGTY: .WORD AMSGTY ::MESSAGE TYPE CODE 
(3) 001530 000000 SFATAL: .WORD AFATAL ;:fATAL ERROR NUMBER 
(3) 001532 000000 STESTIN: .WORD ATESIN ::TEST NUMBER 
(3) 001534 000000 $PASS: .WORD APASS ::PASS COUNT 
(3) 001536 000000 SDEVCT: :WORD ADEVCT ::DEVICE COUNT 
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(3) 001540 000000 SUNIT: .WORD AUNIT ;:1/0 UNIT NUMBER 
(3) 001542 000000 SMSGAD: .WORD AMSGAD ::MESSAGE ADDRESS 
(3) 001544 000000 SMSGLG: .WORD AMSGLG ;;MESSAGE LENGTH 
(3) 001546 SETABLE: 3 APT ENVIRONMENT TABLE 
(3) 001546 000 SENV: -BYTE AENV  ::ENVIRONMENT BYTE 
(3) 001547 000 “BYTE AENVM 
(3) {ENVIRONMENT MODE BITS 
(3) 001550 000000 is G: .WORD ASWREG ;;APT SWITCH REGISTER 
(3) 001552 000000 SUSUR: “WORD AUSWR ::USER SWITCHES 
(3) 001554 000000 SCPUOP: :WORD ACPUOP ::CPU TYPE,OPTIONS 
(3) 3* BITS 15-11=CPU TYPE 
(3) ie 11794201 11/05 =02,11/20=03,11/40=04,11/45=05 
(3) ie 11/70=06,PDQ=07,0=10 
(3) 3* BIT 10=REAL TIME CLOCK 
(3) ie BIT 9=FLOATING POINT PROCESSOR 
(3) it BIT 8=MEMORY MANAGEMENT 
(3) 002 ~IF IDN <ENDTAB>,<$CPUOP> 
(3) SETEND: 
(3) sMEXIT 
(3) 001 -ENDC 
(3) 001556 000 SMAMS1: .BYTE AMAMS1 ;:HIGH ADDRESS,M.S. BYTE 
(3) 001557 000 SMTYP1: .BYTE AMTYP1 ::MEM, TYPE BLK&1 
(3) 38 MEM.TYPE BYTE == (HIGH BYTE) 
(3) 3t 900 NSEC CORE=001 
(3) * 300 NSEC BIPOLAR=002 
(3) 7 500 NSEC MOS=003 
(3) 001560 000000 $MADR1: .WORD AMADR1 ;;HIGH ADDRESS,BLK#1 ates 
(3) 3 MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF ‘TYPE’ ABOVE 
(3) 002 -IF IDN <ENDTAB>,<$MADRI> 
(3) SETEND: 
(3) .MEXIT 
(3) 001 SENDC 
(3) 001562 000 SMAMS2: .BYTE AMAMS2 ;;:HIGH ADDRESS .M. S. BYTE 
(3) 001563 000 SMTYP2: -BYTE AMT Ye [:MEM. TYPE ,BLKA2 
(3) 001564 000000 SMADR2: .WORD ADR2 ::MEM.LAST ADDRESS, BLK#2 
(3) 002 .1F IDN <ENDTAB>, A SRADR2S 
(3) SETEND: 
(3) »MEXIT 
(3) 001 -ENDC 
(3) 001566 000 SMAMS3: .BYTE AMAMS3 ;:HIGH ADDRESS.M.S.BYTE 
(3) 001567 000 SMTYP3: .BYTE AMT YPS : MEM. TYPE BLKA 
(3) 001570 000000 SMADR3: .WORD ADR3 _::MEM.LAST ADDRESS, BLK#3 
(3) 002 IF IDN CENDTABD. A SRADR3S 
(3) SETEND: 
(3) ~MEXIT 
(3) 001 SENDC 
(3) 001572 000 $MAMS4: .BYTE AMAMS4 HIGH ADDRESS, jt S.BYTE 
(3) 001573 000 SMTYP4: .BYTE AMTYP4 ::MEM.TYPE,B 
(3) 001574 000000 SMADR4: .WORD AMADRG ::MEM.LAST a ORES. BLKAG 
(3) 002 -1F IDN <ENDTAB>, <SMADR4> 
(3) SETEND: 
(3) ~MEXIT 
(3) 001 -ENDC 
(3) 001576 000000 $VECT1: .WORD AVECT1 ;; INTERRUPT VECTOR#1,BUS PRIORITY#1 
Hh 002 IF JDN <ENDTABD, -<$VECTI> 
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(3) SETEND 
(3) eMEXIT 
(3) 001 eENDC 
(3) 001600 000000 SVECT2: .WORD AVECT2 ;; INTERRUPT VECTOR#2BUS PRIORITY#2 
(3) 002 IF IDN <ENDTAB>,<$VECT2> 
(3) EVEN 
(3) SETEND 
(3) eMEXIT 
(3) 001 -ENDC 
(3) 001602 000000 $BASE: .WORD ABASE 
(3) 3;BASE ADDRESS OF EQUIPMENT UNDER TEST 
(3) 002 .1F IDN <ENDTAB>,<$BASE> 
(3) SETEND: 
(3) oMEXIT 
(3) 001 ~ENDC 
(3) 001604 000000 SDEVM: .WORD ADEVM s:DEVICE MAP 
(3) 002 -.F ION <ENDTAB>,<$DEVM> 
(3) SETEND: 
(3) oMEXIT 
(3) 001 ~ENDC 
(3) 001606 000000 $CDW1: .WORD ACDOW1 :: CONTROLLER DESCRIPTION WORDA1 
(3) 002 IF IDN <ENDTAB>,<$CDOW1> 
(3) SETEND: 
(3) oMEXIT 
(3) 001 ~ENDC 
(3) 001610 000000 $CDW2: .WORD ACDW2 : CONTROLLER DESCRIPTION WORD#2 
(3) 002 IF IDN <ENDTAB>,<$CDW2> 
(3) SETEND: 
(3) oMEXIT 
(3) 001 ~ENDC 
(3) 001612 000000 $DDWO: .WORD ADDWO s;DEVICE DESCRIPTOR WORD#0 
(3) 002 IF IDN <ENDTAB>,<$DDWO0> 
(3) SETEND: 
(3) oMEXIT 
(3) 001 e-ENDC 
(3) 001614 000000 $DDW1i: .WORD ADDW1 ::DEVICE DESCRIPTOR WORDA1 
(3) 002 IF IDN <ENDTAB>,<$DDW1> 
(3) SETEND: 
(3) eMEXIT 
(3) 001 -ENDC 
(3) 001616 000000 $DDW2: .WORD ADDW2 s DEVICE DESCRIPTOR WORD#2 
(3) 002 IF IDN <ENDTAB>,<$DDW2> 
(3) SETEND: 
(3) eMEXIT 
(3) 001 -ENDC 
(3) 001620 000000 $DDW3: .WORD ADDW3 s:DEVICE DESCRIPTOR WORD#3 
(3) 002 -1F IDN <ENDTAB>,<$DDW3> 
(3) SETEND: 
(3) oMEXIT 
(3) 001 -ENDC 
(3) 001622 000000 $DDW4: .WORD ADDW4 s:DEVICE DESCRIPTOR WORD#4 
(3) 002 .1F IDN <ENDTAB>,<$D0DW4> 
(3) SETEND: 
(3) oMEXIT 
(3) 001 -ENDC 
(3) 001624 090000 $DDW5: .WORD ADDW5S s:DEVICE DESCRIPTOR WORD#S 
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(3) 002 if IDN <ENDTAB>,<$DDW5> 
(3) $E1 END: 
(3) oMEXIT 
(3) 001 eENDC 
(3) 001626 000000 SDDW6: .WORD ADDW6  ;;D9EVICE DESCRIPTOR WORD#6 
(3) 002 IF IDN <ENDTAB>,<$DDW6> 
(3) SETEND: 
(3) MEXIT 
(3) 001 -ENDC 
(3) 001630 000000 $DDW7: .WORD ADDW7 _— ;;DEVICE DESCRIPTOR WORD#7 
(3) 002 IF IDN <ENDTAB>,<$DDW7> 
te SETEND: 
(3) oMEXIT 
(3) 001 eENDC 
(3) 001632 000000 $DDW8: .WORD ADDW8 s DEVICE DESCRIPTOR wORD#8 
(3) 002 IF IDN <ENDTAB>,<$DDW8> 
(3) SETEND: 
(3) oMEXIT 
(3) 001 -ENDC 
(3) 001634 000000 $DDW9: .WORD ADDW9 ::DEVICE DESCRIPTOR WORD&9 
(3) 002 IF IDN <ENDTAB>,<$D0DW9> 
(3) SETEND: 
(3) oMEXIT 
(3) 001 eENDC 
(3) 001636 000000 $DDW10: .WORD ADDW10 ;;DEVICE DESCRIPTOR wWORD#10 
(3) 002 IF IDN <ENDTAB>, <$D0W10> 
(3) SETEND: 
-(3) oMEXIT 
(3) 001 eENDC 
(3) 001640 000000 $DDW11: .WORD ADDW11 ;;DEVICE DESCRIPTOR WORD#11 
(3) 002 -I1F IDN <ENDTAB>, <$DDW11> 
(3) SETEND: 
(3) oMEXIT 
(3) 001 -ENDC 
(3) 001642 000000 $DDW12: .WORD ADDW12 ;;DEVICE DESCRIPTOR WORD#12 
(3) 002 .IF IDN <ENDTAB>,<$DDW12> 
(3) SETEND: 
(3) oMEXIT 
(3) 001 -ENDC 
(3) 001644 000000 $DDW13: .WORD ADDW13 ;;DEVICE DESCRIPTOR WORD#15 
(3) 002 IF IDN <ENDTAB>,<$DDW13> 
(3) SETEND: 
(3) oMEXIT 
(3) 001 -ENDC 
(3) 001646 000000 $DDW14: .WORD ADDW14 ;;DEVICE DESCRIPTOR WORD#14 
(3) 002 IF IDN <ENDTAB>,<$0DW14> 
(3) SETEND: 
(3) oMEXIT 
(3) 001 .ENDC 
(3) 001650 000000 $DDW15: .WORD ADDW15 ;;DEVICE DESCRIPTOR WORD#15 
(3) 002 IF IDN <ENDTAB>, <$D0W15> 
(3) SE TEND: 
(3) oMEXIT 
(3) 001 .ENDC 
(3) 
(3) 
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{2} 001652 SETEND: 
(2) 000 ~ENDC 
(2) 001 -1F NB <$SYMBOLS> 
(2) .IRP A,<$SYMBOLS> 
‘¢) a 
(3) . ENDM 
{2 001652 $SYMBOLS 
(4) 
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: INSTRUCTION DEFINITIONS 


PUSH1SP=5746 = ;DECREMENT PROCESSOR STACK 1 WORD =TST -(SP) 
POP1SP=5726 i INCREMENT PROCESSOR STACK 1 WORD =TST <SP)¢ 
PUSHRO=10046 SAVE RO ON STACK =MOV RO,-(SP) 
OPRO=12600 i RESTORE RO FROM STACK =MOV (SP)+,RO 
PUSH SP524646 SDECREMENT STACK Twice =(MP =(SP).=(SP) 
POP2SP=22626 : INCREMENT STACK TWICE =CMP (SP)+,(SP)+ 
sREGISTER DEFINITIONS 

“RXCSR BIT DEFINITIONS 
psc=ct115 sDATA SET CHANGE 
RING=BIT14 SRING 
CTS=BIT13 ?CLR TO SEND 
CARDET=BIT12 SCARRIER DETECT 
RECACT=BIT11 SREC ACTIVE 
SRD=B1T10 *SEC REC DATA 
DSR=BIT9 ‘DATA SET RDY 
STPSYN=BIT8 ?STRIP SYNC 
RXDONE=BI1T7 SREC DONE 
RINTEN=B1 16 :REC INTR ENABLE 
DSINTE=B1T5 [DSC INTR ENABLE 
SYNSCH=BI1T4 :SYNC SEARCH 
STD=BIT [SEC XMIT DATA 
RTS=BIT2 :REQ TO SEND 
DTR=B1T1 DATA vERM RDY 
VOID=BITO 

:RXDBUF BIT DEFINITIONS 
RXERR=B1115 :REC ERROR 
OVRRUN=B1T14 RRU 
FRMERR=BI113 ; ERAME ERROR 
PARER=B1112 PARITY ERROR 

*PARCSR BIT DEFINITIONS 
PAREN=B119 PARITY ENABLE 
EVPAR=B1T8 SEVEN PARITY SENSE 

-PARCSR WRD DEFINITION S 
SYNINT=30000 SYNC EXTERNAL MODE 
SYNEXT=20000 SYNE INTERNAL MODE 
1SYMOD=0 : MODE 
FIVE=0 sWORD LENGTH 5 BITS 
$1X=2000 SWORD LENGTH 6 BITS 
SEVEN=4000 sWORD LENGTH 7 BITS 
E 1GHT=6000 SWORD LENGTH 8 BITS 
NOPAR=0 °NO PARITY 
ODDPAR=1000 [00D PARITY 
EVEPAR=1400 EVEN PARITY 

-TXCSR BIT DEFINITION S 
DNA=B1T15 sDATA NOT AVAILABLE 
MTD TABITI4 [MAINT DATA 
CLK=BIT1 CLK 
BITw=B1T10 ‘BIT WINDOW 
MRESET=BIT8 *MASTER RESET 
TXDONE=BIT7 ?XMIT DONE 
TXINTE=BI16 ?XMIT INTR ENABLE 


SEQ 0034 
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22 CNDUUA.M11 = 29=0CT-82 APT MAILBOX=-E TABLE SEQ 0035 
(4) 000040 DNAINTE=BITS ;DNA_INTR ENAB 
(4) 000020 SEND=BIT4 
(4) 000010 HDXEN=BIT3 :HDX/FDX 
(4) 000001 BREAK=B1T0 
(4) sTXCSR WRD per iniT IONS 
(4) 000000 USER=0 R 
(4) 004000 MINT=4000 MAINT INT MODE 
(4) 010000 MEXT=10000 ‘MAINT EXT MODE 
(4) 014000 SYSTST=14000 [SYSTEM TEST MODE 
(2) 000 -ENDC 


CNDUU-A MACY11 301066) 145DEC~82 10:02 PAGE 62-22 
23 CNDUUA.M11 29-0CT=-82 13:2 ERROR POINTER TABLE SEQ 0036 

3} .SBTTL ERROR POINTER TABLE 
(2) s*THIS ooh atlewic’ THE INFORMATION FOR EACH ERROR be om OCCUR. 
(2) StTHE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND 
(2) + *LOCATION SITEMS, THIS NUMBER INDICATES HICH ITEM IN THE TABLE IS PERTINENT. 
(2) S*NOTE1: If $ITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 
(2) S *NOTE2: EACH ITEM IN THE TABLE Y CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
(2) es EM ::POINTS TO THE ERROR MESSAGE 
(2) 8 DH ‘POINTS TO THE DATA HEADER 
(2) ie OT ::POINTS TO THE DATA 
(3) ie DF ‘POINTS TO THE DATA FORMAT 
(2) 
(2) 001652 SERRTB: 
(1) sERROR TABLE 
(1) 001652 001762 EM1 SERROR 1 REGISTER ERROR 
(1) 001654 002067 DH1 
(1) 001656 002116 DT1 
(1) 001660 002132 DF1 
(1) 001662 002022 EM2 SERROR 2 RECEIVER ERROR 
(1) 001664 002067 DH1 
(1) 001666 002116 oT1 
(1) 001670 00¢15¢ DF1 
(1) 001672 00204 EM3 SERROR 3 TRANSMITTER ERROR 
(1) 001674 002067 DH1 
(1) 001676 002116 pT1 
(1) 001700 002132 FI 
(1) 001702 001746 EMG SERROR 4 BIT ERROR (GENERAL) 
(1) 061704 000000 0 
(1) 001706 002126 DT4 
(1) 001710 002132 DF1 
(1) :DEFAULT DU ADDRESSES 
(1) 001712 174300 RXCSR: 174300 
(1) 001714 174301 HRXCSR: 174301 
(1) 001716 174302 RXDBUF: 174302 
(1) 001720 174303 HRXDBUF : 174303 
(1) 001722 174302 PARCSR: 174302 
(1) 001724 174303 HPARCSR: 174303 
(1) 001726 174304 TXCSR: 174304 
(1) 001730 174305 HTXCSR: 174305 
(1) 091732 174306 TXDBUF: 174306 
(1) 001734 174307 HTXDBUF : 7430 
(1) :DEFAULT by VECTORS 
(1) 001736 000330 DURIV 3 REC INTR VECTOR 
(1) 001740 000332 DURIS: 32 SREC INTR STATUS 
(1) 001742 000334 DUTIV: 34 ;XMIT INTR VECTOR 
(1) 001744 000336 DUTIS: 3% >XMIT INTR STATUS 
(1) ERROR MESSAGES 
(1) 001746 020040 051105 047522 EM4: ASCIZ / ERROR PC / 
(1) 001754 020122 041520 600040 
(1) 001762 920040 047503 050115 EMI: .ASCIZ / COMPARISON ERROR ON REGISTERS/ 
(1) 001770 051101 051511 047117 
(1) 001776 042440 051122 051117 
(1) 002006 047440 020116 042522 
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051105 


000 


ERROR POINTER TABLE 


EM2: 


EM3: 


DH1: 


EVEN 
DT1: 


DT4: 

DF1: 

EVEN 

~$ACT11 

-SBTTL 

STARS 
F 


FARA AAAEAR AREA AA AERA AE EERE AEA AAAEEAAAEEREEEEAEKEEKERRAe Eee 


o IFF 
«NLIST 
-REPT 


POE SESSECELE SELES ESE SESE SEES EEE ECCS CLEC ESS CCCSCOOCCOCCCCCSO OSES ESSE SY 


eNLIST 

-ENDR 

«LIST 
N 


» ENDC 
sHOOKS REQUIRED BY ACT11 
$SVPC=. 


IF B 


FF 


eASCIZ / RECEIVER ERROR/ 


eASCIZ / TRANSMITTER ERROR/ 


sDATA_HEADERS FOR ERROR MESSAGES 
eASCIZ /ERRPC WANTED ACTUAL/ 


— TABLES FOR ERROR MESSAGES 


ORD 


- WORD 
-BYTE 


ACT11 HOOKS 


-=46 
SENDAD 


SERRPC,HLDO,HLD1,0 


sSAVE PC 


:31)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 


331)SET LOC.46 TO ADDRESS OF 


322)SET LOC.52 TO ZERO 


332)SET LOC.52 TO 


33 RESTORE PC 


SEQ 0037 
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025 CNDUUA.M11 
(1) 002136 


002136 


002136 


000024 
000044 
002136 
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000 
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000052 
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ACT11 HOOKS 


SAPT 
SBrTL RPT parancten BLOCK 


STARS 
F 


oe RARER EAAAA EEA EE ERATE EEE AEEERAREEAAAAAAAEAAEREAAAARRAAEEARRRENE 


OUT iti titi iii itiiiitiiiititiititiititiaii gy) 
*ALIST 
-ENDR 
“ENDC 
:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
STARS 


PARMAR RARAeHAA TATA TATA AAA AAA AAA AAAAAA AT AK AA AAA eK AA AH eERE ee 
o 1FF 
eNLIST 
oREPT 
»LIST 
SRAM AAAee RA eee RAH AA AAA ATTA AAA AAA eA AeA AAA eKeTAtAeAeeAe eee Ae ee 
eNLIST 
DR 


LIST 

- ENDC 
~$X=. = SAVE meee, LOCATION 
2=2 3;SET POWER FAIL TO POINT TO START OF PROGRAM 
200—t= a APT START UP 
-=44 POINT TO pea INDIRECT ADDRESS PNTR. 
SAPTHDR :;POINT TO APT HEADER BLOCK 
-=.$X  ;;RESET LOCATION COUNTER 

1B STARS 


SEERA AAAAAARHA AEA AAAAAEA AREA AAAAARAAAEAA ARERR AAEREAERE RHE AES 


FRRARAAAAAAAAEHAAAHA AA AEEAEAEAA ARERR RERARARRERAAA AAAS 


“ALIST 
-ENDR 
“LIST 


-ENDC 
7SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 


APTHD: 

HIBTS: .WORD 0 ::TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

SMBADR: _WORD SMALL SSADDRESS OF APT MAILBOX (BITS 0-15) 

$TSTM: .WORD 10 ii y TIM OF LONGEST TEST 

SPASTM: .WORD 10 N TIME IN, SECS; OF 1ST PASS ON 1 UNIT (QUIC 

SUNITM: .WORD D4 IONAL RUN TIME (SECS) OF A PASS FOR EACH 
.WORD sutea-aiitth LENGTH NMAILBOX2E TABLE (WORDS) 


za~ 


SEQ 0038 


AL UNIT 
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026 CNDUUA.M11 OCT- APT PARAMETER BLOCK SEQ 0039 
(1) 002152 SETUP <.$SCOPE,.SERROR, STRAP, .SPOWER> 
(2) 000000 $SETUP= 6 
000000 $STUP= 
(3) 000001 SSETUP= $SETUP!1 ::B1T00 
(3) 177777 $STuP= -1 
(3) 

(3) 
(3) 
(3) 
(3) 
(3 
(3) 
(3) 000000 $STUP= 0 
i 
(3) 000003 SSETUP= $SETUP!2 3331701 
(3) 177777 $STUP= =1 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 000000 $STuP= 0 
(3) 
3 
(3) 000007 $SETUP= $SETUP!4 ::B1T02 
(3) 177777 $STUP= -1 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 000000 $STUP= 0 
(3) 
(3) 
(3) 
(3) 000017 SSETUP= $SETUP!10 ::B1T03 
(3) 177777 $STUP= = 
(3) 
(3) 
(3) 
(3) 
qa) 
(1) 002152 SSTART 
, t20 sPROGRAM INITIALIZATION 
(2) [LOCK GUT INTERRUPTS 
(2) [SET UP PROCESSOR STACK 
(2) [SET UP POWER FAIL VECTOR 
(2) :CLEAR PROGRAM CONTROL FLAGS AND COUNTS 
(23 [TYPE TITLE MESSAGE 
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002152 


002252 


002256 
002262 


04104 


29-0 T= 


Coonnoonn CONNOCOO NNO 
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5 a5bee 


001400 
001440 


001100 


177234 


177232 
000001 
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APT PARAMETER BLOCK 


177125 


~ START: 
~SBTTL 


IF OF 


see EM ee THE COMMON TAGS 


73 CLEAR io COMMON TAGS (SCMTAG) AREA 
#SCMTAG,R6 


-ENDC 
o1F NE SSETUP&10 
MOV 


~ENDC 
ae 
vIF 


MOV 


(R6)+ 
Hest ;:DONE? * 


#ASTACK,SP 
#STACK,SP 


iTiALl? tig SSETUP= 0 


dee: ETuP e1 


Af 


MOV 
“hoe” SCMTAG, 
LIF NE Sse Turse 


dC 


D 


MOV 


MOV 
MOV 


MOV 
CMT 
MOV 


MOV 


-ENDC 
-1F NE SSETUP&4 
02 


EN 

IF NE pee rwrtee 
IIF NDF $ 

~EN 

IF 


C 
NE  - y 


EW VECTORS 
;B81T00 


wSSCOPE a#1OTVEC :; 


#PR6,a #LOTVECS? 


ase LOCATION TO BE CLEARE 
;CLEAR MEMORY LOCATION 


;;LOOP BACK IF NO 


3;SETUP THE STACK POI 
3;SETUP THE STACK POINTER 


_ FOR SCOPE ROUT! 


71 
LE 
TNM sz INITIALIZE 


D 


NTER 


NE 
THE TEST NUMBER 


01 
bieRROR QWEMTVEC 5 EMT — FOR ERROR ROUTINE 


#PRO,AMEMTVEC+2 ; 


#STRAP ,a#TRAPVEC B he FOR TRAP CALLS 


7sLEVEL 


#PR6,aMTRAPVEC +2; LEVE 


;B1T03 
#SPWRDON, SPPURVEC Fe amenemates VECTOR 


#PR6 ,a#PWRVEC+2 
gs B1T04 
+ senoct, SEOPCT 
;B1T05 


#96543, SHINUM 
#123456, SLONUM 


E $SETUP&1 ;;B1T00 
R&4000 


E psy 
rete 


MOVB 


MOV 
“STIMES 


CLRB 


SESCAPE 
#1, SERMAX 


set VE 


CLEAR THE PASS COUNT 


$ 
7;SETUP END-OF -PROGRAM COUNTER 


3¢PRIME THE RANDOM NUMBER GENERATOR 


3;BOTH HIGH AND LOW WORDS 


#1,SICNT s INITIALIZE THE ITERATION COUNTER 
Ss {NITIALIZE NUMBER OF ITERATIONS 
SERFLG SiCLEAR THE ERROR FLAG 


CLEAR THE ERROR COUNT 


SERT 
EE LEAR THE ESCAPE ON ERROR 
tTALLOW ONE ERROR PER TEST 


ADDRESS 


SEQ 0040 
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CNDUUA.M11  29-0CT- INITIALIZE THE COMMON TAGS SEQ 0041 
(3) 001 If NE $SETUP&20 ::B1T04 
(3) 002 “IF NE TdbopessuR 
(3) “MACRO $$SETUP 2N1 4 2N2,2N3 
(3) INITIALIZE THE "'T-B1T” TRAP VECTOR. THEN LOAD LOCATION "'SRTRN', IN 
(3) ;:THE “END-OF-PASS"’ (SEOP) ROUTINE, WITH A "RTI OR "RIT". 
(3) MOV #SRIRN, jaetelive S3SET ~ BIT VECTOR TO $RTRN 
(3) MOV #PR6,AMTBITVEC+2 3:L 
(3) MOV t ie T Siri 10 A RTI 
(3) MOV WN2,QMRESVEC ::TRY TO DO A RTT 
(3) CLR -(SP) + DUMMY On8 
(3) MOV #N1,-(SP) 3D AN PC 
(3) RTT :: TRY THE R 
(3) Ni: MOV ae ,SRTRN ee 1S LEGAL--SET SRTRN TO A RIT 
(3) NB: ADD T ILLEGAL=-CLEAN OFF THE STACK 
(3) N3: MOV ARESVECO2, anresvil’; sRESTORE TRAP CATCHER 
(3) CLR $1B SscLEAR 'T’ BIT SWITCH 
(3) .ENDM  $$SETUP 
(3) $$SETUP 
(3) 001 .ENDC 
(3) 000 SENDC 
(3) 001 SIF NE SSETUP&1 
(3) 002270 012767 002270 177110 MOV #.,SLPADR s: INITIALIZE THE LOOP ADDRESS FOR SCOPE 
(3) 002276 012767 002276 177104 MOV #..$LPERR ::SETUP THE ERROR LOOP ADDRESS 
(3) 000 .ENDC 
(3) 002304 
(4) 33SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR I Is 
(4) S:EQUAL TO A" ao , SETUP FOR A SOF TWARE SWITCH REGISTER 
(4) 002304 013746 000004 MOV QFERRVEC.<(SP) 3;SAVE ERROR VECTOR 
(4) 002310 012737 002344 000004 MOV 64S, aFERRVEC 33SET uP ERR OR VECTOR 
(4) 002316 012767 177570 177114 MOV WR, SWR ::SETUP FOR A HARDWARE SWICH REGISTER 
(4) 002324 012767 177570 177110 MOV #DD1SP DISPLAY ?:AND A HARDWARE DISPLAY REGISTER 
(4) 002332 022777 177777 177100 CMP #-1,aSUR ::TRY TO REFERENCE HARDW 
(4) 002340 001012 BNE ::BRANCH IF NO TIMEOUT TRAP OCCURRED 
(4) S:AND THE HARDWARE SW =. 
(4) 002342 000403 BR 65$ ::BRANCH IF NO TIMEO 
(4) 002344 012716 002352 64$: MOV #65$, (SP) ::SET UP FOR TRAP RETURN 
(4) 002350 909002 RTI 
(4) 002352 012767 000176 177060 65$: MOV #SWREG, SWR jy? #POINT TO SOFTWARE SWR 
(4) 002360 012767 000174 177054 MOV #DISPREG,DISP 
(4) 002366 012637 000004 66$: MOV (SP)+, SRERRVEC ” S SRESTORE ERROR VECTOR 
(3) 001 IF DF SMAIL 
(3) “MACRO SSSETMALL 2$ARG1 
(3) P s:CLEAR PASS COUN 
(3) BiTB MAPTSIZE.SENVM 3: TEST USER SIZE UNDER apt 
(3) BEQ SIYES,USE NON-APT SWITC 
(3) MOV #SSWREG,SWR [:NO,USE APT SWITCH REGISTER 
(3) SARG): 
(3) .ENDM  S$SETMAIL 
(3) 002372 S$SETMAIL 
(4) 002372 005067 177136 CLR SPAS s:CLEAR PASS COUNT 
(4) 002376 132767 000200 177143 BITB #APTSIZE,SENVM ;;TEST USER SIZE UNDER APT 
(4) 002404 001403 BEQ , [iYES,USE NON-APT SWITCH 
(4) 002406 012767 001550 177024 aa MOV #SSWREG, SW *:NO,USE APT SWITCH REGISTER 
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CNDUUA.M11 -OCT NITIALI — COMMON TAGS SEQ 0042 
(3) 900 .ENDC 
(2) 00 414 01270 901100 MOV #STACK,SP ySET STACK 
(2) 002420 10 se 003 MTPS 00 “LOCK INTERRUPTS 
(2) 002624 012737 9150 000024 MOV #.PFAIL,a#26 [SET UP POWER FAIL VECTOR 
(2) 002632 105067 17653 CLRB = STFLG [CLEAR START FLAG 
(2) 002436 005067 176450 LR PASCNT [CLEAR PASS COUNT 
(2) 002442 105067 176735 CLRB = SERFLG [CLEAR ERROR FLAG 
(2) 002446 005067 176740 CLR SERTTL ‘CLEAR ERROR COUNT 
(2) 002452 005067 176740 CLR SERRPC ;CLEAR LAST ERROR POINTER 
(3) 002456 012767 000001 176716 MOV #1,$TSTNM [SET UP FOR TEST 1 
(2) 0024664 012767 002152 176412 MOV #. START, RETURN [SET UP FOR POWER FAIL BEFORE 
(3) [TESTING STARTS 
(2) 002472 013746 000006 MOV a#6,-(SP) 
(2) 002476 013746 000004 MOV aed ,-(SP) 
(2) 002502 012737 002516 000004 MOV #1$,aK4 
(2) 002510 005777 176724 TST aswR 
(2) 002514 000407 BR 2$ 
(2) 002516 012767 000176 176714 1$: MOV #SWREG, SWR 
(2) 002524 012767 000174 176710 MOV #DISPREG, DISPLAY 
(2) 002532 peeees CMP (SP)+,(SP)+ 
(2) 002534 012637 000004 2$: MOV (SP) +, aa 
(2) 002540 012637 000006 MOV (SP) +, aa 
(2) 002544 022767 000176 176666 CMP #SWREG, SWR 
(2) 002552 001007 BNE 3$ 
(2) 002554 005737 000042 TST ae42 sCHECK FOR CHAIN 
(2) 002560 001402 BEQ 335 
(2) 002562 000167 000522 JMP BEGIN 
(2) 002566 004767 010224 33$: JSR PC,CNTLU 
(2) 002572 105767 176374 33: TSTB —s INI FLG sHAS INITIALIZATION BEEN PERFORMED 
(2) 002576 001004 BNE ONCE 
(2) 002600 104401 015172 TYPE MTITLE sTYPE TITLE MESSAGE 
(2) 002604 105167 176362 COMB ~—s_- INIFLG ‘IF NOT SET FLAG AND DO 
(1) 002610 SCLRVEC .BEGIN 
(2) 002610 105767 176732 ONCE: STB  SENV ;APT CONTROL? 
(2) 002614 001410 BEQ 11$ ‘BR IF N 
(2) 002616 032767 000001 176726 BIT #1, SUSWR SEXTENAL JUMPER ON? 
(2) 002624 001002 BNE 12$ NO 
(2) 002626 105067 176321 CLRB =: JMRBY [CLEAR FLAG 
(2) 002632 000167 000452 128:  JMP BEGIN 760 DO I 
(2) 002636 032777 000001 176574 11$: &BIT #SWO00,aSwR *RESELECT VECTOR & CONTROL REG? 
(2) 002644 001002 BNE 1$ 
(2) 002646 000167 000436 JMP BEGIN 
(2) 002652 012700 000300 1$: MOV #300,RO ;RESTORE VECTOR AREA TO TRAPCATCHER 
(2) 002656 912701 000302 MOV #302.R1 :START AT LOCATION 300 
(2) 002662 012702 000004 MOV #4,R 
(2) 002666 010110 2$: MOV R71. (RO) 
(2) 002670 005011 CLR crf) 
(2) 002672 060200 ADD R2,RO 
(2) 002674 060201 ADD R2_R1 
(2) 002676 022701 001000 CMP #1600,R1 ZEND AT LOCATION 776 
(2) 002702 002771 BLT 2$ 
(1) 002704 SGETPAR MREGAD,DUBASE,1,1,174000,177776 
(2) 002704 104406 INSTR  ;QUTPUT MESSAGE & GET INPUT STRING 
(2) 002706 015240 MREGAD ; 
(2) 002710 104410 PARAM CONVERT STRING 
(2) 002712 174000 174000 ;LOW LIMIT 


-29 
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177776) =; HIGH LIMIT 
DU 

1 

1 


CNDUUA.M11 29-0(T-8 INITIAL] 


(2) 002714 177776 

(2) 002716 017170 BASE :STORE AT THIS LOCATION 

(2) 002720 001 BYTE MASK 

(2) 002721 001 “BYTE ‘HOW MANY TIMES + 2 

(1) 0027 ; 016767 014242 176226 MOV GUBASE, KEEPADD ;SAVE 

(1) 002730 004767 01410 JSR PC,DUADD 

(1) 0087 4 016767 176216 176212 MOV KEEPADD,BASEADD ;RESTORE FOR ROTATION 
(1) 00 fag $GETPAR MVECTO, DURIV 4 4,1,300,376. 

(2) 00274 104406 INS UTPUT MESSAGE & GET INPUT STRING 

(3) 002744 01522 nVECTO ‘OESsA G 

(2) 002746 104410 > CONVERT STRING 

(2) 902750 900300 e00 LOW LIMIT 

(2) 002752 000376 76 HIGH LIMIT 

(2) 002754 001736 DURIV STORE” AT THIS LOCATION 

(2) 002756 001 .BYTE 1 MASK 

(2) 002757 004 “BYTE 4 HOU MANY TIMES + 2 

(1) 002760 016767 176752 176176 MOV DURIV,KEEPIV ;SAVE 

(1) 002766 016767 176744 176166 MOV DURIV.BASEIV :SET UP FOR ROTATION 

(1) 002774 SGETFLG MMULT,MULTD 

(2) 002774 104406 INSTR OUTPUT MESSAGE & GET INPUT STRING 

(2) 002776 015270 MMULT  :MESSAGE 

(2) 003000 104414 SETFLG iSET FLAG BASED UPON INPUT STRING 

(2) 003002 001152 MULTD  ;THIS FLAG 

(1) 003004 105767 176142 TSTB = MULTD «© ARE_THERE MULTIPLE DEVICES 

(1) [ON THE SYSTE 

(1) 003010 100406 BMI BBB [YES,ASK NEXT QUESTION 

(1) 003012 005067 176150 CLR ACTREG 

(1) 003016 005067 176146 CLR ROTADD 

(1) 903022 000167 000140 ah JMP OUTMUL ;JUMP AROUND NEXT QUESTION 

(2) 003026 104406 INSTR  ;QUTPUT MESSAGE & GET INPUT STRING 

(2) 003030 015317 MLASTD ;MESS 

(2) 003032 104410 PARAM sCONVERT STRING 

(2) 003034 174000 174000 ;LOW LIMIT 

(2) 003036 177776 177776 :HIGH LIMIT 

(2) 003040 001160 LASTADD i STORE AT THIS LOCATION 

(2) 003042 001 “BYTE 1 

(2) 003043 001 ‘BYTE 1 HOW TIMES + 2 

(1) “THE FOLLOWING ROUTINE ASETS uP ACTREG FOR THE FIRST TIME 
(1) 003044 012767 000001 176116 i$: MOV #1,ROTADD T UP POINTER 

(1) 003052 005067 176110 CLR ACTREG ;CLR ACTIVE REGISTER 

(1) 003056 056767 176106 176102 28: BIS ROTADD.ACTREG  ;MAKE THIS DEVICE ACTIVE 
(1) 003064 000241 CLC 

(1) 003066 006167 176076 ROL ROTADD iSET UP POINTER 

(1) 003072 103421 BCS 35 ARE YOU OUT OF RANGE ? 

(1) 003074 062767 000010 176052 ADD SeAD ;SET UP BASE ADDRESS 

(1) 003102 026767 176052 176044 CMP Ah BASEADD "1S THIS THE LAST DEVICE ? 
(1) 003110 10136 BHI $ “NO DO If AGAIN 

(1) 003112 056767 176052 176046 BIS ROTADD,ACTREG ;THIS ASSUMES THAT THERE ARE AT 
(1) LEAST TWO DEVICES WHEN YOU ANSWER YES TO 
(1) *MULTIPLE DEVICE QUESTION 

(1) 003120 012767 000001 176042 4$: MOV #1, ROTADD sSET UP FOR LATER USE IN END OF PASS ROUTINE 
(1) 005126 016767 176024 176020 MOV KEEPADD,BASEADD :DITTO 

(1) 003134 000414 BR OUTMUL “;CONTINUE QUESTIONS 

(1) 003136 016767 176014 176010 3$: KEEPADD BASEADD : RESTORE 

(1) 003144 SCL TPAR MRANGE ,LASTADD, 1.1, 174000, 177776 
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(2) 003144 104406 INSTR OUTPUT MESSAGE & GET INPUT STRING 
(2) 003146 01541 MRANGE 
(2) 00 139 106410 PARAM : CONVERT STRING 
(2) 003152 174000 174000 :LOW LIMIT 
(2) 003154 177776 177776 HIGH LIMIT 
(3) 003156 001160 LASTADD STORE AT THIS LOCATION 
(2) 003160 001 .BYTE 1 K 
(2) 003161 001 .BYTE 1 “HOW MANY TIMES + 2 
(1) 003162 000167 177656 JMP i$ :DO0 IT AGAIN 
(1) 003166 012767 000300 013636 OUTMUL: MOV #300, DUPRT 
(1) 003174 004767 013562 SR PC, DUL EV 
(1) 003200 SGETSYN MSYNC SYNCNO,A 
(2) MPARE THE PIRST aGHARACTER, IN THE TELETYPE INPUT 
(2) ‘BUFF ER TO THE CHARACTERS '1"’ AND "2°", 
(2) s1F THE CHARACTER IS ''I'* CLEAR THE FLAG 
(2) 31F THE CHARACTER IS ‘'2"' SET THE FLAG 
(2) 003200 AAA: 
(2) 003200 104406 INSTR  ;QUTPUT MESSAGE & GET INPUT STRING 
(2) 003202 015631 MSYNC :MESSAGE aa 
(2) 003204 122767 000061 012760 3$: CMPB. Ss #1, INBUF IS 17 ‘1"" 2 
(2) 003212 001003 BNE $ 
(2) 003214 105067 175726 CLRB = SYNCNO ;000 
(2) 003220 000412 K BR 4 = 
(2) 003222 122767 000062 012742 1$: CMPB Ss #2, INBUF s4 30 “O" 2 
(2) 003230 001004 BNE 
(2) 003232 112767 177777 175706 MOVB #-1,SYNCNO 3377 
(2) 003240 000402 BR 
(2) 003242 104407 23: INSTER :RETRY 
(2) 003244 000757 BR S$ 
(2) 003246 000240 4$: NOP 
(1) 003250 SGETFLG MWIRE6,SEXMIT 
(2) 003250 104406 INSTR ;QUTPUT MESSAGE & GET INPUT STRING 
(2) 003252 015677 MWIRE6 : MESSAGE 
(2) 003254 104414 SETFLG ;SET FLAG BASED UPON INPUT STRING 
(2) 003256 001147 SEXMIT THIS FLAG 
(1) 003260 SGETFLG MWIRES,SERE 
(2) 003260 104406 INSTR ;QUTPUT MESSAGE & GET INPUT STRING 
(2) 003262 015750 MWIRES ;: 
(2) 003264 104414 SETFLG ;SET FLAG BASED UPON INPUT STRING 
(2) 003266 001150 SEREC :THIS FLAG 
(1) 003270 SGETFLG MWIRE4OPTCL 
(2) 003270 104406 INSTR ;OQUTPUT MESSAGE & GET INPUT STRING 
(2) 003272 016020 MWIRE4 ;: 
(2) 003274 104414 SETFLG :SET FLAG BASED UPON INPUT STRING 
(2) 003276 001151 OPTC ma 
(1) 003300 SGETFLG MEXTJ,JM 
(2) 003300 104406 INST ZOUTPUT MESSAGE & GET INPUT STRING 
(2) 003302 016077 MEXTJ AGE 
(2) 003304 104414 SETFLG Set 1 BASED UPON INPUT STRING 
(2) 003306 001153 JMRBY ;THIS FLAG 
a) 003310 SBEGIN 
(2) :TEST START AND RESTART 
(2) 
(2) 003310 012706 001100 .BEGIN: MOV #STACK,SP 7SET UP STACK 
(2) 003314 106427 000300 MIPS = #300 SLOCK OUT INTERRUPTS 
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(2) 003320 032777 000002 176112 BIT #SW01,aSwR sIF SwO1=1, GET STARTING PC 
(2) 003326 001413 BEQ 
(2) 003330 SGETPAR MTSTPC, STSTNM. 1, 1,1$11,17500 
(3) 003330 1o4406 INSTR ;QUTPUT MESSAGE & GET INPUT STRING 
(3) 003332 01556 MTSTPC :M 4+ 
(3) 00 4 104410 PARAM ; CONVERT — 
(3) 003336 003374 TST1 LIMIT 
(3) 003340 017500 17500 HIGH LIMIT 
(3) 003342 001402 $TSTNM :STORE AT THIS LOCATION 
(3) 003344 001 .BYTE 1 K 
(3) 003545 001 ‘BYTE 1 Oe MANY TIMES + 2 
(2) 00 346 016767 176030 175530 MOV $TSTNM, RETURN 
(2) 003354 000403 BR 
(2) 003356 012767 003374 175520 3$: MOV #TST1, RETURN sSTART AT TEST 1 
(2) 003364 104401 015557 i$: TYPE % : R 

ait> 003370 000177 175510 JMP @RE TURN sSTART TESTING 
8150 003374 STRPAR SEVEN 10. ,EVEPAR, ISYMOD,125,1252 

q) STHIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
(1) £30 tues TRANSHITTER SECTION. 
(1) :IT ALSO CHECKS DNA TIMING 
(1) SIMODE: 1SYM 
(1) HH Hy fe SEVEN PLUS PARITY 
(1) s PARITY: EVEPAR 
1) ; CHARACTER: 125 
(1) 003374 $TSTNO 
(2) 003374 NEWTST 
(3) 000000 $NWIST=0 
(3) 001 .IF B <> 
(3) 003374 SSNEWTEST \STN, <>, SCOPE 
(4) .IRP — ASC I, <> 
(4) "IF €Q SNWIST 
(4) eNLIST 
(4) $NWTST=1 
(4) .SBTTL 11 ASCI 
(4) “LIST 
(4) STARS 
(4) seTEST 1 ASCI 
(4) IRF 
(4) ASC] 
(4) .ENDC 
(4) ~ENDM 
(4) 903374 STARS 
(5) 002 IF B 
(5) PL etteereeeererererererereserereeeeeeeeHeAtenectanenaeeneeneteneese 
(5) J IFF 
(5) eNLIST 
(5) REPT 
(5) LIST 
(5) sl eeeeeneeeeenereerereerererreerennenteerettertetenenereneserenee 
(5) eNLIST 
(5) eENDR 
(5) LIST 
(5) 001 * ENDC 
(4) 0603376 000004 iST1: SCOPE 
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-0CT- TIALI — COMMON TAGS 
000002 STN=STN¢1 
SSNEWTEST 
000 -ENDC 
001 ~IF NE 40008$SwWR 
O6 IF NB 
00 oIF LE <=1> 
ve MOV #1, STIMES 
MOV #,STIMES 
002 -ENDC 
901 -ENDC 
002 IF NB 
MOV #, SLPADR 
001 -ENDC 
000 -ENDC 
001 IF NB 
002 IF DF SMAIL 
- IRP TNM,<\$TN-1> 
MOV #° TNM,STESTN 
~ENDM 
001 -ENDC 
G00 -ENDC 
000000 -REPT 0 
«NLIST 
RADIX 10 
LIST 
- IRP $DN,<\SN> 
NEWTS 
3 MOV #$0N,STSTNM 
~ENDM 
eNLIST 
RADIX 8 
eLIST 
3-11F NB <>, MOV 
3-11F NB <>, MOV 
3.1F NB 
oIFF 
eNLIST 
RADIX 10 
eLIST 
- IRP SDE ,<\SE> 
IF DF TST'S$DE 
3 MOV #TST'SDE NEXT 
~ENDM 
eNLIST 
eRADIX 
eLIST 
mS | 
3 MOV #.EOP NEXT 
-ENDC 
-ENDC 
3-11F NB <>, MOV 
eNLIST 


SEQ 0046 


\$TN,<>,<> 


33:00 1 ITERATION 
3;D0 ITERATIONS 


33SET SCOPE LOOP ADDRESS 


7;SET TEST NUMBER IN APT MAIL BOX 


sSAVE THIS 
# RETURN sSET UP THIS RETURN 
#, COUNT :SET UP THIS ICOUNT 


<> 
MOV #,NEXT ;GO TO THIS TEST WHEN THRU 


3G0 TO THIS TEST WHEN THRU 


3G0 TO THIS TEST WHEN THRU 


#,LOCK ;SET UP FOR SCOPE LOOP 
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(2) ADIX 10 
(2) $N=$N¢1 
(3) SE=$E+1 
(2) sRADIX 8 
(3) LIST 
(2) eENDR 
(1) 003376 TSETUP MINT, ISYMOD, SEVEN, EVEPAR, 26 
(@) 003376 SRESET 
(3) 003376 052777 000400 176322 BIS #MRESET,@TXCSR ;MASTER RESET 
(2) 003404 012777 000000 176310 enn MOV #ISYMOD.@PARCSR :SET THE MODE 
) 003412 052777 000400 176306 BIS WMRESET,@TXCSR ;MASTER RESET 
(2) SET MAINTENANCE ModE & SEND 
(2) OTE:8 T WINDOWECLK ARE CLEARED (MTDATA=0) 
(2) 003420 012777 004020 176300 hov Limits SEND ,a@TXCSR 
(2) ySET MODE,# OF BITS, PARITY SENSE,& LOAD SYNC REG 
(2) 003426 012777 005426 176266 MOV #ISYMOD!SEVEN!EVEPA R26, aPARC SR 
(1) 003434 016703 176266 MOV TXCSR,R3 3SET UP FOR ERROR MSG 
(1) 003440 112777 000125 176264 MOV #125,aTXDBUF ‘LOAD UDATA CHAR 
(1) 003446 012767 001252 176024 MOV #1250. 51H :TO BE SHIFTED CHAR 
(1) 003454 012767 000012 175440 MOV #10., SHIFT OF SHIFTS 
(1) :POKE CLK TO GET INTO 6 SYNCRONIZATION 
(1) 003462 $POKE 
(2) 003462 052777 020000 176236 BIS #CLK,aTXCSR ;POKE CLK UP 
(2) 003470 042777 020000 176230 BIC #CLK.aTXCSR SPOKE CLK DOWN 
(1) 003476 005000 1$: CLR R 
(1) 003500 006067 175774 ROR $TMP1 ;FORCE CARRY 
(1) 003504 103002 BCC °BR IF CARRY CLR 
(1) 903506 052700 002000 i BIS #B1Tw,RO- sEQUIV OF BITW 
(2) 003512 052777 020000 176206 BIS #CLK,aTXCSR :POKE CLK UP 
(2) 003520 042777 020000 176200 BIC #CLK aTxcsR SPOKE CLK DOWN 
(1) 003526 017701 176174 MOV aTXxcsr Ri S ACTUAL 
(1) 003532 042701 075777 BIC Borst TTR [SAVE BITW & DNA 
(1) 003536 020001 CMP RO,R1 RF OMPARE’ EXP VS ACT 
(1) 003540 001401 BEQ .+ 
(1) 003542 104003 ERROR 3 BIT WINDOW DID NOT MATCH ACTUAL DATA 
(1) 003544 005367 175352 DEC SHIFT :# OF SHIFTS 
(1) 003550 001352 BNE 4,300 IT AGAIN ? 
(1) ;NOW POKE CLK TO SEE DNA 
(1) 003552 052777 020000 176146 BIS #CLK,aTXCSR sPOKE CLK 
$}e 001 ate IDN <ISYMOD>, <ISYMOD> 
(1) 003560 012700 000000 ue MOV #0,.RO EXPECTED 
(1) MOV #100000,R0 SEXPECTED 
(1) 000 .ENDC 
(1) 003564 017701 176136 MOV aTXCSR,R1 ACTU 
(1) 003570 042701 077777 BIC wr7iT, RI ‘CAVE ‘DNA ONLY 
(1) 00374 020001 CMP RO,R [COMPARE EXP VS ACT 
(1) 003576 001401 BEQ ¢ 
(1) 003600 104003 ERROR 3 DNA SHOULD BE SET 
(1) [IF DNA DID NOT SET 
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{}? ;CHECK WORD LENGTH SELECT LOGIC 
8151 003602 STRPAR SEVEN,1 ‘ QDDPAR, Isvmop 125, 1652 

(1) HIS 9229 CHARACTER uw PARITY GENERATION 

(1) 10 THE st WERIEYS.C SECTION. 

(1) T ALSO CHECKS DNA TIMING 

(1) ODE: ISYMOD 

(1) HILENGHH: SEVEN PLUS PARITY 

(1) ARITY:ODDPAR 

1) $ ECHARACTER: 125 

(1) 00360 $TSTNO 

(2) 00360 NEWTST 

(3) 000000 $NWTST=0 

(3) IF B <> 

(3) 003602 SSNEWTEST \STN, <>, SCOPE 

(4) .IR ASCI,<> 

(4) IF EQ $NWIST 

(4) “NLIST 

(4) $NWTST= 

(4) .SBITL 12 ASCI 

(4) “LIST 

(4) STARS 

(4) S*TEST 2 ASCI 

(4) LIFF 

(4) ASCI 

(4) .ENDC 

(4) *ENDM 

(4) 003602 STARS 

(5) 002 IF B 

(5) SRRRAA AA AA REAR RAE RA THETA AAAEAAAARAHAREAKEKEKReReKeRKeReeeeeeee 

(5) “FF 

(5) “NLIST 

(5) [REPT 

(5) -LIST 

(5) SRAAAARERAAEAEAA AAA A AE AREREEAAARARAKAREKAKAAAEEAReRAAee Ree es 

(5) *NLIST 

(5) ENDR 

(5) LIST 

(5) 001 * ENDC 

(4) 003602 000004 TST2: SCOPE 

(4) 000003 STN=$TN#1 

(3) TIFF 

(3) SSNEWTEST \STN,<>,<> 

(3) 000 ENDC : 

(3) 001 TIF NE 40008$SWR 

3 83 HR 

3) ne MOV #1, STIMES ::D0 1 ITERATION 

(3) MOV #,STIMES ::D0 ITERATIONS 

(3) 002 ENDC 

(3) 001 *ENDC 

(3) 002 "IF NB 


MOV #, SLPADR 32SET SCOPE LOOP ADDRESS 
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001 -ENDC 

000 ND 

001 -IF NB 

002 SMAIL 

- IRP TNM,<\STN 
MOV 


62-35 
Ze 


IZE THE COMMON TAGS SEQ 0049 


~~ 
~~ 


-1> 

eM, STESTN 3;SET TEST NUMBER IN APT MAIL BOX 
001 ~ENDC 
000 

000000 eREPT 0 


. IRP $DN,<\$N> 
3 MOV #SON,STSTNM ;SAVE THIS 


NB <>, MOV #, RETURN sSET UP THIS RE 
a. <>, MOV #, 1 COUNT sSET UP THIS IC 


<> 
MOV #,NEXT ;GO TO THIS TEST WHEN THRU 


. SDE, <\SE> 
IF DF TST*SDE 
; MOV #TST°SDE,NEXT 3GO TO THIS TEST WHEN THRU 


MOV #.EOP,NEXT 3GO0 TO THIS TEST WHEN THRU 


3 11F NB &, MOV #,LOCX ;SET UP FOR SCOPE LOOP 


-ENDR 
003604 Eh MINT, ISYMOD, SEVEN, ODDPAR , 26 


4 
003604 052777 000400 176114 BIS @MRESET,@TXCSR ;MASTER RESET 
OO Tes 012777 000000 176102 SRESET MOV #ISYMOD,@PARCSR ;SET THE MODE 
003620 052777 000400 176100 BIS WMRESET,@TXCSR ;MASTER RESET 


3SET Rete ral MODE & $ 
NOTE :BIT WINDOWEELK ARE CLEARED (MTDATA=0) 


APRA RRR RR FR RRA RRA RAR AAR AAPL POP PP PPR PPP fl Pe ee 

PROPIA EPOPD IRD @ PINNING AINYNONYINYINDNYNYIDININYNINYINIPONINI PID NPN PUNPYIPUNININPINPININININN NIWA 

0 SS SS SS SS SS SU Oe 
wv 


L 4 
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3} 003626 012777 004020 176072 MOV #MINT! SEND @TXCSR 
(2) SET MODE 5A OF BITS,PARITY SENSE,& LOAD SYNC REG 
(2) 003634 012777 005026 176060 MOV #ISYMOD!SEVEN!ODDPAR! 26 ,@PARCSR 
(1) 003642 016705 176060 MOV it R3 :SET UP FOR ERROR MSG 
(1) 003646 M1207 000125 176056 MOV #125, aTXDBUF | LOAD DATA CHAR 
(1) 003654 012767 001652 175616 MO #1650 STHP To E SHIFTED CHAR 
(1) 003662 012767 000012 175232 MOV #10.,SHIF OF SHIFTS 
C1) nate jPOKe CLK TO GET INTO CtNCRONIZATION 
(2) 003670 052777 020000 176030 BIS #CLK,@TXCSR sPOKE CLK UP 
(2) 003676 042777 020000 176022 BIC #CLK.aTXCSR SPOKE CLK DOWN 
(1) 003704 005900 1$: CLR 
(1) 003706 006067 175566 ROR $TMP1 i FORCE CARRY 
(1) 003712 103002 BCC R IF CARRY CLR 
(1) 003714 052700 002000 - BIS #B1TW.RO’ sEQUIV OF BITW 
(2) 003720 052777 020000 176000 BIS #CLK,aTXCSR :POKE CLK UP 
(2) 003726 042777 020000 175772 BIC #CLK aTXCSR :POKE CLK DOWN 
(1) 003734 017701 175766 MOV aTXCS§R RT 
(1) 003740 042701 075777 BIC #075777,R Bue BITW & DNA 
(1) 003744 920001 CMP RO,R1 RTOMPARE® ‘ENP VS ACT 
(1) 003746 001401 BEQ +4 
(1) 003750 104003 ERROR 3 BIT “ae ee ACTUAL DATA 
(1) 003752 005367 175144 DEC SHIFT i" Of SHIFT 
(1) 003756 001352 BNE [D0 IT AGAI 
(1) :NOW POKE CLK TO SEE DNA 
(1) 003760 052777 020000 175740 BIS #CLK,aTXCSR SPOKE CLK 
(1) 001 IE IDN <ISYMOD>, <I1SYMOD> 
(1) 003766 012700 000000 uti MOV #O.RO EXPECTED 
(1) MOV #100000,R0 sEXPECTED 
(1) 000 -ENDC 
(1) 003772 017701 175730 MOV aTXCSR,R1 sACTU 
(1) 003776 042701 077777 BIC #77777.R1 CAVE NDNA ONLY 
(1) 2 020001 CMP RO,R1 : COMPARE EXP vS ACT 
(1) 004004 001401 BEQ +4 
(1) 004006 104003 ERROR 3 ;DNA SHOULD BE SET 
(1) F DNA DID NOT SET 
(1) [CHECK WORD LENGTH SELECT LOGIC 
8152 604010 STRPAR EIGHT 9. ,EVEPAR,SYNINT,125,1 

(1) HIS TEST VERIFYS whanac ten PLUS PARITY GENERATION 
(1) THE FRANGRITTER SECTION, 
(1) ‘ith ALSO CHECKS DNA TIMING 
(1) za DE: SYNINT 
(1) NGTH: EIGHT PLUS PARITY 
(1) TBA RITY:EVEPAR 
(1) 3 }CHARACTER: 125 
(1) 004010 $TSTNO 
(2) 004010 NEWTST 
(3) 000000 SNWTST=0 
(3) 001 .1F B <> 
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(3) 004010 SSNEWTEST \STN, <>, SCOPE 
(4) IRP SCI,<> 
(4) -IF €Q SNWTST 
(4) wNLIST 
(4) SNWTST=1 
(4) .SBTTL 13 ASCI 
(4) «LIST 
(4) STARS 
(4) STEST 3 ASCI 
(4) wIFF 
(4) ASCI 
(4) .ENDC 
(4) *ENDM 
(4) 004010 STARS 
(5) 002 IF B 
(5) Ng aha entree, de nant ake ee, eee ee 
(5) “FF 
(5) .NLIST 
(5) .REPT 
(5) LIS 
(5) SRE AAAAARERAAE REE REAA EEE REE AAAAA REAR REAAEAAAREEARERETREEKES 
(5) “NLIST 
(5) -ENDR 
(5) LIST 
(5) 001 “ENDC 
(4) 004010 000004 TST3: SCOPE 
(4) 000004 STNZSTNGT 
(3) SSNEWTEST \$TN,<>,<> 
(3) 000 -ENDC 
(3) 001 .IF NE 40008$SwWR 
(3) 002 SIF NB 
(3) 003 IF LE <=1> 
(3) m MOV #1, STIMES 7:D0 1 ITERATION 
(3) MOV #,STIMES 3:D0 ITERATIONS 
(3) 002 .ENDC 
(3) 001 -ENDC 
(3) 002 -IF NB 
(3) MOV #,SLPADR ::SET SCOPE LOOP ADDRESS 
(3) 001 .ENDC 
(3) 000 -ENDC 
(3) 001 SIF NB 
(3) 002 -IF DF SMAIL 
(3) “RP —«TNM, <\$TN-1> 
(3) MOV #@°TNM.STESTIN ;;SET TEST NUMBER IN APT MAIL BOX 
(3) .ENDM 
(3) 001 SENDC 
(3) 000 -ENDC 
(2) 000000 “REPT 0 
(2) SNLIST 
(2) sRADIX 10 
(2) LIST 
(2) -IRP  —- $DN, <\$N> 
(2) NEWTST 


N 4 
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(2) ; MOV #SON,STSTNM :SAVE THIS 

(2) eENDM 

(2) eNLIST 

(2) eRADIX 8 

(2) LIST 

(2) 3 11F NB <>, MOV #, RETURN ;SET UP THIS RETURN 
+ 11F NB <>, MOV #, ICOUNT :SET UP THIS ICOUNT 
ha MOV #,NEXT ;GO TO THIS TEST WHEN THRU 
(2) -NLIST 

(2) “RADIX 10 

(2) LIST 

(2) ~IRP SDE ,<\SE> 

(2) "IF DF TST'$pD 

(3) ; MOV #TST'SDE,NEXT GO TO THIS TEST WHEN THRU 
(2) eENDM 

‘33 eNLIST 

(2) eRADIX 8 

(2) SLIST 

(2) TIFF 

(2) ; MOV #.EOP,NEXT 3G0 TO THIS TEST WHEN THRU 
(2) eENDC 

(2) SENDC 

(2) 3 11F NB <>, MOV #,LOCK ;SET UP FOR SCOPE LOOP 
(2) ~NLIST 

(2) "RADIX 10 

(2) $N=$N+1 

(2) $E=$E+1 

(2) «RADIX 8 

(2) LIST 

(2) “ENDR 

(1) 004012 TSETUP MINT, SYNINT, EIGHT, EVEPAR, 26 

(2) 004012 SRESET 

(3) 004012 052777 000400 175706 BIS #MRESET,@TXCSR ;MASTER RESET 

(2) 006020 612777 030000 175674 MOV #SYNINT.@PARCSR :SET THE MODE 

(2) 004026 SRESET 

(3) 004026 052777 000400 175672 BIS WMRESET,@TXCSR ;MASTER RESET 

(2) ySET MAINTENANCE MODE & S 

(2) :NOTE:BIT mit tiie ARE CLEARED (MTDATA=0) 
(2) 004034 012777 004020 175664 MOV #MINT! SEND, aTXCSR 

(2) :SET MODE,# OF BITS. gPARLTY SENSE,& LOAD SYNC REG 

(2) 006042 012777 037426 175652 MOV YNIN NT SEIGHT !EVEPAR! 26, @PARCSR 

(1) 004050 016703 75652 MOV Th CSR R3 3SET UP FOR ERROR MSG 
(1) 006054 112777 90012 175650 MOVB ness at input LOAD DATA CHAR 

(1) 004062 012767 000125 175410 MOV 10 BE SHIFTED CHAR 
(1) 006070 012767 000011 175024 MOV OF SHIFTS 

(1) tte jPOKe CLK TO GET eaten IFT outzaiteg 

(2) 006076 052777 020000 175622 BIS #CLK,aTXCSR :POKE CLK U 

(2) 004104 042777 020000 175614 BIC #CLK aTXCSR [POKE CLK YOUN 

(1) 004112 00 009 1$: CLR 

(1) 006114 006067 175360 ROR $TMP1 ;FORCE CARRY 

(1) 004120 103002 BCC 2$ *BR IF CARRY CLR 
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052700 


104003 


000000 
001 
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002000 


174736 


020000 


100000 


175522 
077777 


10:02 PAGE 62-39 
INITIALIZE THE COMMON TAGS 
- BIS #B1Tw,RO sEQUIV OF BITW 
175572 BIS #CLK,aTXCSR :POKE CLK UP 
175564 BIC #CLK aTXCSR ;POKE CLK DOWN 
MOV aTxc$R RI UAL 
BIC #075777,R ‘SAVE BITW & DNA 
CMP RO,R1 RTOMPARE® aNPe VS ACT 
+ 
ERROR 3 :B1T WINDOW DID NOT MATCH ACTUAL DATA 
*BIT,...ALSO CHECK DNA 
DEC SHIFT :# OF SHIFTS 
BNE 1 [D0 IT AGAIN ? 
zNOW POKE CLK 10, SEE DNA 
175532 BIS K,aTXCSR sPOKE CLK 
“te IDN AT <SYNINT> 
- MOV #0,RO EXPECTED 
MOV #100000,R0 SEXPECTED 
.ENDC 
MOV aTXCSR,R1 ACTU 
BIC #77777.,R1 tOAVE D 
CMP RO,R1 COMPARE AERP VS ACT 
BEQ +4 
ERROR 3 sDNA SHOULD BE te 
[IF DNA DID 


pEC~Be 


$TRPAR EIGHT, meget coat ge AD. 
§ TEST VERIFYS C 


: Emo 


NOT SET 
:CHECK WORD LENGTH SELECT LOGIC 


nanacten PLUS PARITY GENERATION 


E:SYNINT 
sel LENGTH: pt Sho PLUS PARITY 


PARITY 


; CHARACTER: 125 


$TSTNO 


\$S™TN,<>, SCOPE 


SEQ 0053 


. 3 
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~ 
wt 
- 


SL ERAAHA AHA AHAHAREKEAEATTAAAAAA AHH RAAAARAAKERAA HA KEA RAAT eK AKA e Ee 


(5) iff 

(5) «NLIST 

(5) eREPT 

(5) eLIST 

(5) SL RRAAAAAAAAAHEEARARE TATE HEA EETERERAAAAAHHEEREAAHHHRERA HEARN AEE 
(5) «NLIST 

(5) .ENDR 

(5) «LIST 

(5) 001 .ENDC 

(a) 004216 000004 TST4: SCOPE 

(4) 000905 STN=$TN+1 

(3) FF 

(3) SSNEWTEST \$STN,<>,<> 

(3) 000 -ENDC 

(3) 001 .1F NE 40008$SWR 

(3) 002 .1F NB 

(3) 003 wIF LE <=1> 

(3) ai MOV #1, STIMES :2D0 1 ITERATION 
(3) MOV #,STIMES 3:D0 ITERATIONS 
(3) 002 -ENDC 

(3) 001 ~ENDC 

(3) 002 .1F NB 

(3) MOV #, $LPADR ziSET SCOPE LOOP ADDRESS 
(3) 001 -ENDC 

(3) 000 ~ENDC 

(3) 001 .1F NB 

(3) 002 wIF DF $MAIL 

(3) .IRP TNM, <\$TN=1> 

(3) MOV #° TNM,STESTN ::SET TEST NUMBER IN APT MAIL BOX 
(3) .ENDM 

(3) 601 JENDC 

(3) 000 ~ENDC 

(2) 000000 sREPT 0 

(2) «NLIST 

(2) sRADIX 10 

(2) wLIST 

(2) .IRP  —s- SDN, <\ $ND> 

(2) NEWTST 

(2) MOV #SDN,STSTNM :SAVE THIS 

(2) .ENDM 

(2) «NLIST 

(2) sRADIX 8 

(2) eLIST 

(2) > 11F NB ©, MOV #, RETURN :SET UP THIS RETURN 
(2) :.11F NB <>, MOV #, ICOUNT ‘SET UP THIS ICOUNT 
(2) 3.1F NB <> 

(2) ; MOV #,NEXT :GO TO THIS TEST WHEN THRU 
(2) TIFF 

(2) wNLIST 

(2) sRADIX 10 

(2) LIST 

(2) -IRP = = SDE ,.<\$E> 

(2) “IF DF TST'SDE 
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(2) ; MOV #TST'SDE,NEXT 3G0 TO THIS TEST WHEN THRU 
(2) “ENDM 

(2) “NLIST 

(2) “RADIX 8 

(2) LIST 

(2) TIFF 

(2) ; MOV #.EOP,NEXT :G0 TO THIS TEST WHEN THRU 
(2) “ ENDC 

(2) SENDC 

(2) >. LIF NB ©, MOV #,LOCK ;SET UP FOR SCOPE LOOP 
(2) “NLIST 

(2) “RADIX 10 

(2) $N=$N+1 

(2) SE=SE+1 

(2) sRADIX 8 

(2) “LIST 

(2) * ENDR 

(1) 004220 TSETUP MINT,SYNINT, EIGHT ,ODDPAR, 26 

(2) 004220 SRESET 

(3) 004220 052777 000400 175500 BIS WMRESET,@TXCSR ;MASTER RESET 

(2) 004226 012777 030000 175466 MOV #SYNINT.@PARCSR :SET THE MODE 

(2) 004234 SRESET 

(3) 004234 052777 000400 175464 BIS WMRESET,@TXCSR ;MASTER RESET 

(2) :SET MAINTENANCE MODE & SEND 

(2) :NOTE:BIT WINDOWRCLK ARE CLEARED (MTDATA=0) 
(2) 004242 012777 004020 175456 MOV #MINT! SEND, @TXCSR 

(2) SET MODE . aft OF BITS,PARITY SENSE,® LOAD SYNC REG 
(2) 004250 012777 037026 175444 #SYNINT sEIGHT !ODDPAR!26, aPARCSR 

(1) 004256 016703 175444 MOV TXCSR,R3 SET P FOR ERROR MSG 
(1) 004262 112777 000125 175442 MOVB #125, aTXDBUF :LOAD UOATA CHA 

(1) 004270 012767 000525 175202 MOV #325, gSTHP Pl :10, BE SNIESED™ CHAR 
(1) 004276 012767 000011 174616 MOV HIFTS 

(1) :POKE CLK TO GET maton LNCRONIZATION. 

(1) 004304 $POKE 

(2) 004304 052777 020000 175414 BIS #CLK,@TXCSR sPOKE CLK UP 

(2) 004312 042777 020000 175406 BIC #CLK.aTXCSR SPOKE CLK DOWN 

(1) 004320 005000 1$: CLR R 

(1) 004322 006067 175152 ROR $TMP1  ;FORCE CARRY 

(1) 004326 103002 BCC 2 “BR IF CARRY CLR 

(1) 004530 052700 002000 = BIS #B1TW,RO sEQUIV OF BITW 

(2) 006334 052777 020000 175364 BIS #CLK,@TXCSR :POKE CLK UP 

(2) 004342 042777 020000 175356 BIC w#cLK aTXxcsR SPOKE CLK DOWN 

(1) 006350 017701 175352 MOV XCSR Ri S ACTUAL 

(1) 004354 042701 075777 BIC OOsT TPR ?SAVE BITW & DNA 
(1) 004360 020001 CMP RO,R1 RT OMPARE® EXP VS ACT 

(1) 004362 001401 BEQ nat 

(1) 006364 104003 ERROR 3 :BIT WINDOW DID NOT MATCH ACTUAL DATA 
(1) *BIT,...ALSO CHECK DNA 

(1) 004366 005367 174530 DEC SHIFT is Of SHIFTS 

(1) 004372 001352 BNE 1$ [DO IT AGAIN ? 

(1) :NOW POKE CLK TO SEE DNA 

(1) 004374 052777 020000 175324 BIS #CLK,aTXCSR sPOKE CLK 

(1) 001 IF 1DN <ISYMOD>,<SYNINT> 
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(1) 004420 001401 
1 004422 104003 
(1) 
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10:02 PAGE 62-42 
ZE TH 


INITIALI E COMMON TAGS 

IFT 

as MOV #0,RO ;EXPECTED 

iad MOV #100000,R0 sEXPECTED 

‘ MOV aTXCSR,R1 sACTUA 
BIC #77777.,R1 + SAVE DNA ONL 
CMP RO,R1 COMPARE EXP. vs ACT 
BEQ +4, 
ERROR 3 


;DNA SHOULD BE SET 
F DNA DID NOT SET 
ZCHECK WORD LENGTH SELECT LOGIC 
STRPAR EIGHT, 1 EVEPAR ISYMOD, 125, 2252 
THIS reg) RIFYS C HARACTER PLUS PARITY GENERATION 
i OF ue TRANGRITTER” SECTION. 

:1T ALSO CHECKS DNA TIMING 
3 SMODE : 1SYMOD 
TSLENGTH:EIGHT PLUS PARITY 
3 :PARITY:EV vEP AR 


$TSTNO 


\STN,<>, SCOPE 


“sett T5 ASCI 


s*TEST 5 ASCI 


-ENDC 
TST5: SCOPE 
STN=$TNe1 


‘ SSNEWTEST \$1N,<>,<> 


SEQ 0056 
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alias 10: 0 wittne 62-43 


ALIZE THE COMMON TAGS 


MOV #S0N,STSTNM ;SAVE THIS 
~ENDM 
eNLIST 
RADIX 8 
LIST 
3-11F NB <>, MOV #, RETURN sSET UP THIS R 
3-11F N8 <>, MOV #, 1 COUNT SET Up HIS I 
3.1F NB <> 
tae MOV #,NEXT ;GO TO THIS TEST WHEN THRU 
eNLIST 
eRADIX 10 
LIST 
. IRP SDE, <\$E> 
IF DF TST'SDE 
han MOV #TST'SDE NEXT 360 TO THIS TEST WHEN THRU 
eNLIST 
RADIX 
ay 
Sneme MOV #.EOP,NEXT 3GO0 TO THIS TEST WHEN THRU 
-ENDC 
3-11F NB >, MOV #,LCCK ;SET UP FOR SCOPE LOOP 
eNLIST 
eRADIX 10 
SN=$N+1 
SE=S$E+1 
RADIX 8 


am 


-ENDC 
IF NE 40008$SwR 
~1F NB 
IF LE <=1> 
see MOV #1, S$TIMES 3:00 1 ITERATION 
MOV #,STIMES 33:00 ITERATIONS 
-ENDC 
eENDC 
IF NB 
ENDC MOV #,SLPADR 33SET SCOPE LOOP ADDRESS 
eENDC 
if NB 
IF DF SMAIL 
~ IRP TNM,<\$TN-1> 
— MOV #' TNM,STESTN 3:SET TEST NUMBER IN APT MAIL BOX 
eENDC 
-ENDC 
eREPT 0 
eNLIST 
eRADIX 10 
LIST 
.IRP $DN,<\$N> 
NEWTS 


TURN 
OUNT 


SEQ 0057 
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(2) LIST 
(2) ENDR 
(1) 004426 TSETUP MINT, ISYMOD,EIGHT,EVEPAR, 26 
(9) 004426 SRESET 
(3) 004626 052777 000400 175272 BIS #MRESET,@TXCSR ;MASTER RESET 
(2) 0044 34 012777 000000 175260 ons MOV #ISYMOD.@PARCSR :SET THE MODE 
cS) 004442 052777 000400 175256 BIS #MRESET,@TXCSR MASTER RESET 
(2) ;SET MAINTENANCE MODE & SEND 
(2) NOTE:B17 WINDOWECLK ARE CLEARED (MTDATA=0) 
(3) 004450 012777 004020 175250 hov #MINT!SEND,@TXCSR 
(2) ;SET MODE.# OF BITS,PARITY SENSE, LOAD SYNC REG 
(2) 004456 012777 007426 175236 MOV #1SYMOD'EIGH HT!EVEPAR!26, @PARCSR 
(1) 004464 016703 175236 MOV TXCSR, T UP FOR ERROR MSG 
(1) 004470 112777 000125 175234 MOVB #125, aTXDBUF :LOAD DATA CHAR 
(1) 0044676 012767 00225¢ 174774 MOV #2252,$1MP1 To BE SHIFTED CHAR 
(1) 004504 012767 000013 174410 MOV #11. ,SHIFT SHIFTS 
q) -POKE CLK TO GET INTO ait eusalion 
(1) 004512 $POKE 
(2) 006512 052777 020000 175206 BIS #CLK,aTXCSR :POKE CLK UP 
(2) 004520 042777 020000 175200 BIC #CLK,aTXCSR [POKE CLK DOWN 
(1) 004526 005000 1$: CLR 
(1) 004530 006067 174744 ROR $TMP1 =; FORCE CARRY 
(1) 004534 103002 BCC ?BR IF CARRY CLR 
(1) 004536 052700 002000 BIS #B1TW,RO sEQUIV OF BITW 
(1) 004542 2$: 
(2) 004542 052777 020000 175156 BIS #CLK,aTXCSR :POKE CLK UP 
(2) 004550 042777 020000 175150 BIC #CLKaTXCSR :POKE CLK DOWN 
(1) 004556 017701 175144 MOV aTxcSR,R1 TACTUAL 
(1) 006562 042701 075777 BIC #075777,R1 SAVE BI Tw & DNA 
(1) 004566 020001 CMP RO.R1 ‘;COMPARE EXP VS ACT 
(1) 004570 001401 BEQ +d 
(1) 004572 104003 ERROR 3 iBT WINDOW DID NOT MATCH ACTUAL DATA 
(1) 004574 005367 174322 DEC SHIFT 3 OF SHIFTS 
(1) 004600 001352 BNE 1$ [D0 IT AGAIN ? 
(1) sNOW POKE CLK TO SEE DNA 
(1) 004602 052777 020000 175116 BIS #CLK,aTXCSR sPOKE CLK 
(1) 001 HE IDN <ISYMOD>, <1SYMOD> 
(1) 024610 012700 000000 * MOV #0,RO EXPECTED 
(1) MOV #100000,R0 SEXPECTED 
(1) 000 ENDC 
(1) 0046146 017701 175106 MOV aTXCSR,R1 ACTU 
(1) 004620 042:'01 077777 BIC #77777._R1 CAVE NDNA ONL 
(1) 004624 020003 CMP RO,R1 : COMPARE EXP’ VS ACT 
(1) 004626 001401 BEQ ¢ 
(1) 004630 104003 ERROR 3 DNA SHOULD BE SE! 
(1) [IF DNA DID NOT SET 
Cd) [CHECK WORD VENGTH SELECT LOGIC 
(1) 
8155 004632 $TRPAR EIGHT 11, ,QDDPAR ISYMOD, 125, 3252 
(1) Ss THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
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33;0F THE TRANSMITTER SECTION. 


~~ 
SF 
os 


(1) z71T ALSO CHECKS DNA TIMING 

(1) + :MODE : ISYMOD 

(1) SILENGTH:EIGHT PLUS PARITY 

(1) 3 ;PARITY:ODDPAR 

ae 3; CHARACTER: 125 

(1) 004632 $TSTNO 

(2) 004632 NEWTST 

(3) 000000 SNWTST=0 

(3) 001 IF B <> 

(3) 004632 SSNEWTEST \STN, <>, SCOPE 

(4) .IRP —s_ ASC, <> 

(4) “IF €Q SNWIST 

(4) wNLIST 

(4) $NWTST=1 

(4) -SBITL 16 ASCI 

(4) LIST 

(4) STARS 

(4) T*TEST 6 ASCI 

(4) TIFF 

(4) ASCI 

(4) -ENDC 

(4) -ENDM 

(4) 004632 STARS 

(5) 002 IF B 

(5) SL AAAAAReAReKAKAHH eRe KAA AeK AK AAAKKKAKHAKKeeeKeeeeeteneeteeorenee 
(5) TIFF 

(5) .NLIST 

(5) -REPT 

(5) «LIST 

(5) SS AAAAAAAAEHARAKEAHAHAEEAETEHA AERA EKARAERAAeKeEKeAKeeeeKeeKeneeee 
(5) “NLIST 

(5) SENDR 

(5) LIST 

(5) 001 ENDC 

(4) 004632 000004 1S16: SCOPE 

(4) 000007 STN=$TN+1 

(3) SSNEWTEST \$TN,<>,<> 

(3) 000 EN 

(3) 001 IF NE 40008$SwWR 

(3) $03 IE LE <et> 

(3) ‘ai MOV #1, STIMES ::D0 1 ITERATION 
(3) MOV #STIMES ::D0 ITERATIONS 
(3) 002 .ENDC 

(3) 002 ate 

(3) MOV #, SLPADR ::SET SCOPE LOOP ADDRESS 
(3) 001 -ENDC 

(3) 000 ~ENDC 

(3) 001 IF NB 

(3) 002 “IF DF $MAIL 
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(3) .1RP TNM,<\$TN-1> 

: : — MOV #* TNM,STESTN z:SET TEST NUMBER IN APT MAIL BOX 
(3) 001 ~ENDC 

(3) 000 -ENDC 

(2) 000000 sREPT 0 

(2) «NLIST 

(2) eRADIX 10 

(2) «LIST 

(2) . IRP $DN,<\$N> 

(2) NEWTS 

(2) ; MOV #SON,STSTNM SAVE THIS 

(2) ~ENDM 

(2) »NLIST 

(2) «RADIX 

(2) LIST 

(2) :.11F NB ©, MOV #, RETURN :SET UP THIS RETURN 
(2) 3.11F NB ©, MOV #, COUNT :SET UP THIS ICOUNT 
(2) :.1F NB <> 

$3 bas MOV #,NEXT ;GO TO THIS TEST WHEN THRU 

(2) eNLIST 

(2) eRADIX 10 

(2) »LIST 

(2) ~IRP SDE ,<\$E> 

(2) IF OF TST 

(2) : MOV #TST'SDE,NEXT ;:GO TO THIS TEST WHEN THRU 
(2) ~ENDM 

(2) eNLIST 

(2) «RADIX 

(2) «LIST 

(2) oIFF 

(2) : MOV # EOP NEXT :G0 TO THIS TEST WHEN THRU 
(2) ~ENDC 

(2) ~ENDC 

(2) 3. 11F NB ©, MOV #,LOCK ;SET UP FOR SCOPE LOOP 
(2) eNLIST 

(2) sRADIX 10 

(2) $N=$N+1 

(2) $E=$E+1 

(2) sRADIX 

(2) LIST 

(2) .ENDR 

(1) 0046634 TSETUP MINT, ISYMOD,EIGHT,ODDPAR,26 

(2) 004634 SRESET 

(3) 004634 052777 000400 175064 BIS WMRESET,@TXCSR ;MASTER RESET 

(2) 004642 012777 000000 175052 MOV #ISYMOD,@PARCSR ;SET THE MODE 

(2) 004650 SRESET 

(3) 004650 052777 000400 175050 BIS #MRESET,@TXCSR ;MASTER RESET 

(2) 3SET MAINTENANCE MODE & SEND 

(2) NOTE:BIT WINDOWRCLK ARE CLEARED (MTDATA=0) 

(2) 004656 012777 004020 175042 hov #MINT'!SEND,a@TXCSR 

(2) SET MODE. OF BITS, PARITY SENSE.& LOAD SYNC REG 

(2) 006664 012777 007026 175030 MOV #ISYMOD'EIGHT ODD PAR '26,@PARCSR 
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(1) or 1005 175030 MOV 1 sSET UP FOR ERROR MSG 
(1) 004676 9 7 O00i2 175026 MOVB sat ieur LOAD DATA CHAR 
(1) 006704 012767 0032 é 174566 MOV 2 E SHIFTED CHAR 
(1) 004712 012767 000013 174202 MOV #il. tt 4 HIFTS 
(1) pues jPOKe CLK TO GET INTO HITT owtzattog 
(2) 004720 052777 920000 175000 BIS #CLK,aTXCSR :POKE CLK UP 
(2) 004726 042777 020000 174772 BIC #CLK.aTXCSR SPOKE CLK DOWN 
(1) 004734 005000 1$: CLR 
(1) 004736 006067 174536 ROR $TMP1 FORCE CARRY 
(1) 004742 103002 BCC $ R IF CARRY CLR 
1) 004744 052700 002000 - BIS #B1TW,RO’ sEQUIV OF BITW 
(2) 004750 052777 020000 174750 BIS #CLK,@TXCSR :POKE CLK UP 
(2) 004756 042777 020000 174742 BIC #CLK aTXCSR SPOKE CLK DOWN 
(1) 004764 017701 174736 MOV atxcsr ACTUAL 
(1) 004770 042701 075777 BIC eS ra : SAVE BTW & DNA 
(1) 006774 020001 CMP 0,R1 mF OMPARE’ EXP VS ACT 
(1) 004776 001401 BEQ .+ 
(1) 005000 104003 ERROR 3 ;BIT WINDOW DID NOT MATCH ACTUAL DATA 
(1) IT,..-ALSO CHECK DNA 
(1) 005002 005367 174114 DEC SHIFT :# OF SHIFTS 
(1) 005006 001352 BNE [D0 IT AGAIN ? 
(1) ;NOW POKE CLK TO SEE DNA 
(1) 005010 052777 020000 174710 BIS #CLK,aTXCSR :POKE CLK 
(1) 001 IE IDN <ISYMOD>, <ISYMOD> 
(1) 005016 012700 000000 ul MOV #0,R0  ;EXPECTED 
(1) MOV #100000,R0 SEXPECTED 
(1) 000 .ENDC 
(1) 005022 017701 174700 MOV aTXCSR,R1 s ACTUAL 
(1) 005026 042701 077777 BIC werTTT, R1 [SAVE DNA ONL 
(1) 005032 020001 CMP RO,R :COMPARE EXP VS ACT 
(1) 005034 001401 BEQ _— 
(1) 005036 104003 ERROR 3 :DNA SHOULD BE SET 
(1) SIF DNA DID NOT SET 
(1) “CHECK WORD LENGIH SELECT LOGIC 

oi 

8157 005040 STRPAR EIGHT,9. EVEPAR SYNINT,252,2 
(1) i THIS TEST eRiFYs “Cuaacten PLUS PARITY GENERATION 
(1) :30F HE SRANGHITYER SECTION. 
(1) T ALSO CHECKS DNA TIMING 
(1) NGTH: EIGHT PLUS PARITY 
(1) 4 RITY:EVEPAR 
(1) 33 CHA RACTER: 252 
(1) 005040 $TSTNO 
(2) 005040 NEWTST 
(3) 000000 $NWTST=0 
(3) 001 .1F B <> 
(3) 005040 SSNEWTEST \STN. <>, SCOPE 
(4) .IRP ASC, <> 
(4) "IF €Q SNWIST 
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(4) »NLIST 
(4) SNWTST=1 
(4) -SBTITL 17 ASCl 
(4) LIST 
(4) STARS 
(4) s*TEST 7 ASCI 
(4) oIFF 
(4) ASCI 
(4) ENDC 
(4) -ENDM 
(4) 005040 STARS 
(5) 002 IF B 
(5) FERRARA ARAAAAAAAAA TER AEAA ATE EAAAAAAAARERAAAAAAERERARAHERT RARE AS 
(5) wIFF 
(5) eNLIST 
(5) REPT 
(5) LIST 
(5) FERRARA RA AAA AAAEEAER EATER EAA E AERA AEAAAREAAAARAAEEREHARAERARAAAEE ES 
(5) eNLIST 
(5) -ENDR 
(5) LIST 
(5) 001 ENDC 
ra 005040 000004 TST?: SCOPE 
(4) 006010 STN=$TN+1 
(3) oIFF 
(3) SSNEWTEST \$TN,<>,<> 
(3) 000 -ENDC 
(3) 001 IF NE 40008$SwWR 
(3) 002 IF NB 
(3) 003 IF LE <=1> 
(3) = MOV #1,STIMES 3:D0 1 ITERATION 
(3) MOV #,STIMES 3:00 ITERATIONS 
(3) 002 ~ENDC 
(3) 001 ~ENDC 
(3) 002 IF NB 
(3) MOV #, SLPADR 3;SET SCOPE LOOP ADRESS 
(3) 001 -ENDC 
(3) 000 eENDC 
(3) 001 IF NB 
(3) 002 IF DF SMAIL 
(3) .IRP TNM,<\$TN=-1> 
(3) MOV #° TNM,STESTN 37;SET TEST NUMBER IN APT MAIL BOX 
(3) ~ENDM 
(3) 001 eENDC 
(3) 000 eENDC 
(2) 000000 REPT 0 
(2) eNLIST 
(2) RADIX 10 
(2) eLIST 
(2) . IRP $DN,<\$N> 
(2) NEWTST 
(2) : MOV #SDN,STSTNM sSAVE THIS 
(2) ~ENDM 
(2) eNLIST 


5 
CNDUU“A_ MACY11_ 30(1046) yesDeEC~62 10:02 PAGE 62-49 , 
CNDUUA.Mi1 29-OCT-82 13:2 INITIALIZE THE COMMON TAGS SEQ 0063 


rap 
:.11F NB ©, Mov #, RETURN :SET UP THIS RETURN 
>. IF NB <>? MOV #. COUNT :SET UP THIS IC 


; <> 
F MOV #,NEXT ;GO TO THIS TEST WHEN THRU 


~~ 


.IRP SDE ,<\SE> 
TST'SDE 
: MOV #TST'SDE,NEXT 360 TO THIS TEST WHEN THRU 


Cll ih i ed ee tl a ee a 


: MOV #.EOP NEXT :GO0 TO THIS TEST WHEN THRU 


DC 
DC 
+4 NB <>, MOV #,LOCK ;SET UP FOR SCOPE LOOP 
DI 


POMP fonononononononononononononononofnunupnony 
— ee es Se ee ee 
. 
=z 
— 
nn 
— 


Cd id ed a a a a, ee a a a 


-ENDR 
005042 TSETUP MINT,SYNINT EIGHT ,EVEPAR, 26 
005042 SRESET 
005042 052777 000400 174656 BIS #MRESET,@TXCSR ;MASTER RESET 
Bence 012777 030000 174644 onecest MOV #SYNINT,@PARCSR ;SET THE MODE 
005056 052777 000400 174642 BIS WMRESET,@TXCSR ;MASTER RESET 


sSET MAINTENANCE MODE & SEND 
sNOTE:BIT WINDOWECLK ARE CLEARED (MTDATA=0) 
005064 012777 004020 174634 MOV #MINT!SEND,@TXCSR 


3 SET wag OF BITS,PARITY SENSE,& LOAD SYNC REG 


B&B PRBRPBRO PARR LPR OP LLL LP Pe Pe 
IN at II nt st at os FN NON NONI PU IN PU PPD 
ee ee ee ee ee ee ee er ee es ee es ee ee ee ee ee ee ee ee ee a ee ee a ee ae ee 


005072 012777 037426 174622 #SYNINT!EIGHT 'EVEPAR! 26, aPARCSR 
095100 016703 174622 MOV TXCSR,RS ;SET UP FOR ERROR MSG 
005104 112777 000¢5¢ 174620 MOVB #232. 91 XDBUF ZLOAD DATA CHAR 
005112 012767 000252 174360 MOV #252,$TMP1 710 BE SHIFTED CHAR 
005120 012767 000011 173774 MOV #9., SHIFT “#0 TS 

;POKE CLK TO GET INTO SYNCRONIZATION 
005126 $POKE 
005126 052777 020000 174572 BIS #CLK,aTXCSR sPOKE CLK UP 
005134 042777 020000 174564 BIC #CLK aTXCSR SPOKE CLK DOWN 
005142 005000 1$: CLR R 
005144 006067 174330 ROR STMP1  ;FORCE CARRY 
005150 103008 BCC :BR IF CARRY CLR 
009315¢ 052700 002000 - BIS #B1TW.RO SEQUIV OF BITW 
005156 052777 020000 174542 BIS #CLK,aTXCSR :POKE CLK UP 


51 


CNDUU-A_MACY11_ 30(1046) 
29-0 2 


CNDUUA.M11 


— 
oOo 
oO 


005224 012700 
00 


005230 017701 
005234 042701 


005244 104003 


8 005246 
005246 
005246 
000000 
001 
005246 
005246 
002 


ee Te en tee ee ee ee ee he ce at te et ee i i a a a, ee ee, ca ce, ct ee i a ee et et a a a a ea a 


MAUVE SRE RRL REE RWWA) 2 9 9 2 2 2 
eee ee ee ee ee ee ee eS ww ee we Ow we ew ww ee 


V4=DEC-B2 10:02 PAGE 62-50 
13:2 INITIALIZE THE COMMON TAGS 
0200 0 174534 BIC #CLK,aTXCSR :POKE CLK DOWN 
1 4330 MOV x $ RI SACTUAL 
075 BIC #075777,R1 ‘SAVE BITW & DNA 
CMP RO,R1 ‘“:COMPARE EXP VS ACT 
BEQ +é, 
ERROR 
173706 DEC SHIFT :# OF SHIFTS 
BNE DO” IT NGAI ? 
sNOW POKE CLK TO SEE DN 
020000 174502 BIS #CLK,aTXCSR :POKE CLK 
ter IDN <ISYMOD>, <SYNINT> 
gue MOV #0,RO  ;EXPECTED 
100000 pe MOV #100000,R0 ZEXPECTED 
174672 . MOV aTXcsR, Rt ACTU 
077777 BIC #77777.R SAVE. A ONL 
CMP RO,R1 ‘COMPARE EXP” VS ACT 
* 
ERROR 3 :DNA SHOULD BE SET 


Mm 5 


NOT SET 
:CHECK WORD LENGTH SELECT LOGIC 


STRPAR EJGKT,9. ,ODDPAR,SYNINT,252,6 


52 
i THIS T TEST VERIFYS CHARACTER PLUS PARITY GENERATION 


22 0F THE TRANSMITTER SECTION. 
eelT oi. = DNA TIMING 


i LENGTH: thew! PLUS PARITY 
; PARITY: ODDPAR 
2 CHARACTER: 7b5e 


$TSTNO 


<> 
SSNEWTEST \STN, <>, SCOPE 
RP —s ASCI,< 
“IF €Q snuTst. 
NLIST 
Pr WTST=1 
+ SBTTL 110 ASCI 


s*TEST 10 ASCI 


SLAAAAAKaRaeeeKeAAKeeeKeeeeeeeeteRAteKeeeeeeAAKeneneteeneneneaees 


“NLIST 


3 sBIT WINDOW DID NOT MATCH ACTUAL DATA 
0 CHECK DNA 


SEQ 0064 


52 


CNDUU=A_MACY11 
CNDUUA.M11 


wiv 
ww 


Cg LL LO LO ii fle ey me my le, em my mm oe in, Pe Pe in, 
ee ee ee ee eee ee SS SY wee 


PROROPORONORONO NON NOPUPONIPUPIPINPUNININYAINI WWW NWN NNNNANNNNNNWAW ES BEI 


~~ 
hon 


0(1046) 
29-0(T-82 1 


001 
005246 000004 


000011 


001 
000000 


s:20 


N 5 


“82 10:02 PAGE 62-51 


INITIALIZE THE COMMON TAGS 


REPT 
LIST 
ot eee cnennnsennnnenenennecannneempecannnsnnnenesenneonnasnenenent 
eNLIST 
eENDR 
LIST 
~ENDC 
TST10: SCOPE 
STN=S$TN44 
oIFF 
SSNEWTEST \$TN,<>,<> 
-ENDC 
-1F NE 40008$SwWR 
IF NB 
IF LE <=1> 
re MOV #1,STIMES ::D0 1 ITERATION 
MOV #,STIMES 3:D0 ITERATIONS 
eENDC 
~ENDC 
IF NB 
MOV #, SLPADR 3:SET SCOPE LOOP ADDRESS 
~ENDC 
ENDC 
IF NB 
IF DF SMAIL 
. IRP ™NM,<\$TN=-1> 
—_ MOV #"TNM,STESTN 37SET TEST NUMBER IN APT MAIL BOX 
-ENDC 
ENDC 
REPT 0 
eNLIST 
RADIX 10 
LIST 
. IRP $DN,<\$N> 
NEWTST 
MOV #S0N,$STSTNM ;SAVE THIS 
END 
eNLIST 
“a * 
311F NB <>, MOV #, RETURN :SET UP THIS RETURN 
eott ae <>, MOV #, ICOUNT sSET UP THIS ICOUNT 
* <> 
Saws MOV #,NEXT ;GO TO THIS TEST WHEN THRU 
eNLIST 
RADIX 10 
LIST 
IRP SDE ,<\$E> 


“IF DF TST*$DE 
ibe! MOV #IST'SDE,NEXT ;GO TO THIS TEST WHEN THRU 


»NLIST 


SEQ 0065 


CNDUU-A as 0(104 } 


CNDUUA.M11 29-0CT- 

(2) 

(2) 

(2) 

(2) 

@) 

) 

is} 

(2) 

) 

) 

(1) 005250 

4 005250 

(3) 005250 052777 
(2) 005256 012777 
e; 005264 

(3) 005264 052777 
(2) 

(2) 

(2) 

(2) 005272 012777 
@) 

(2) 905300 012777 
(1) 005306 016703 
(1) 005312 112777 
(1) 005320 012767 
? 005326 012767 
(1) 005334 

(2) 005334 052777 
(2) 005342 042777 
(1) 005350 005000 
(1) 005352 006067 
(1) 005356 103002 
(1) 005360 052700 
(1) 005364 

(2) 005364 052777 
(2) 005372 042777 
(1) 095400 017701 
(1) 005404 042701 
(1) 005410 020001 
(1) 005412 001401 
Ai 005414 104003 
(1) 005416 005367 
Hh 005422 001352 
(1) 005424 052777 
(1) 001 
(1) 

(1) 

(1) 


a 


000400 
030000 


000400 


173500 


020000 


174450 
174436 


174434 


174426 


174414 


174274 


10: a | PAGE 62-52 


NITIALIZE THE COMMON TAGS 


MOV #.EOP,NEXT G0 TO THIS TEST WHEN THRU 


NB <>, MOV #,LOCK ;SET UP FOR SCOPE LOOP 


-ENDR 

Ea og MINT, SYNINT, EIGHT ,ODDPAR, 26 
BIS WMRESET,@TXCSR ;MASTER RESET 

SRESET MOV #SYNINT,@PARCSR ;SET THE MODE 
BIS WMRESET,@TXCSR ;MASTER RESET 

3 SET MAINTENANCE MODE & SEND 

NOTE :BIT WINDOWBLLK ARE A tena (MTDATA=0) 

hov #MINT! SEND, ,@TXCSR 


7 SET woot * = OF “ASYA variay SENSE ,& LOAD SYNC REG 


T'EIGHT !ODDPAR! 26, aPARC SR 
MOV CSR,R3 :SET UP FOR ERROR MSG 
MOVB 4253. aT XDBUF 3LOAD DATA CHAR 
MoV #6 $52, gS inp :T0 BE SHIFTED CHAR 
jPOKe CLK 0 GET maten LNCRONIZATION 
BIS #CLK,@TXCSR :POKE CLK UP 
BIC #CLK.aTXCSR SPOKE CLK DOWN 
1$: CLR R 
ROR $TMP1 ;FORCE CARRY 
BCC $ ‘BR IF CARRY CLR 
- BIS #B1TW,RO sEQUIV OF BITW 
BIS #CLK @TXCSR sPOKE CLK UP 
BIC #CLK, aTxcsR :POKE CLK DOWN 
MOV aTXxcsr AL 
BIC OTs TTP R AVE Bi Tw & DNA 
chp RO RI RE OMPARE’ ‘PNP VS ACT 
a 
ERROR 3 :BIT WINDOW DID NOT MATCH ACTUAL DATA 
:BIT,...ALSO CHECK DNA 
DEC SHIFT :# OF SHIFTS 
BNE i$ [DO IT AGAIN ? 
sNOW POKE CLK TO SEE DNA’ 
BIS #CLK,aTXCSR :POKE CLK 
tt IDN <ISYMOD>, <SYNINT> 
MOV #0,RO ;EXPECTED 


SEG 0066 


CNDUU-A_MACY11 
CNDUUA.M11 


005432 
005436 


~~ 
oo 
— 


005452 


005454 


005454 
005454 


005454 


005454 


005454 


LL LLL RL em mm lm fm ny i fly i, im, fl, lm, my ly fm fn, mm fm my mm mm Pe mm fm, fm, el fm, fim, my Pe fm fm my Pe om 
WUAWUAWWE BBM & REESE EES PWD 2 ee 
ee ee ee ee eee i Se ee ws Oe 


0(1046) 14=DEC-82 
29-0 T-82 13:27 


017 100000 
017701 174264 
pserel 077777 


104003 


000000 
001 


002 


001 
000004 
000012 


10:02 PAGE 62-53 


INITIALIZE THE COMMON TAGS 


oan MOV #100000,R0 SEXPECTED 
MOV aTXCSR,R1 sACTUAL 
BIC #77777_R1 :SAVE DNA ONLY 
cM RO,R1 [COMPARE EXP VS ACT 
+ 
ERROR 3 sDNA SHOULD BE SET 
‘IF DNA DID NOT SE 
SCHECK WORD LENGTH SELECT LOGIC 
STRPAR EIGHT,9.,EVEPAR,SYNINT,O,0 
ssTHI§ TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
[:0F THE TRANSMITTER SECTION. 
?:1T ALSO CHECKS DNA TIMING 
MODE: SYNINT 
S:LENGTH:EIGHT PLUS PARITY 
:: PARITY: EVEPAR 
3: CHARACTER:0 
$TSTNO 
NEWTST 
$NWTST=0 
~1F B <> 
SSNEWTEST \STN, <>, SCOPE 
.IRP — ASCII, <> 
“IF €Q SNWIST 
“NLIST 
$NWTST=1 
.SBTTL 111 ASCI 
“LIST 
STA 
s*TEST 11 ASCI 
ASCI 
.ENDC 
* ENDM 
STARS 
PLAAAAAe AKA ee RARAAK HAH KA AHA AeA AR KAKA KeAKAKKAKeKeKHRKeRAKeKeeAee 
“IF 
“NLIST 
"REPT 
“LIST 
PL AAeeAeeeKeReeeeeeeeeeee eee etek eNeeKKKKeKeKKeKKAeteeKeeaeere 
“NLIST 
*ENDR 
LIST 
*ENDC 
TST11: SCOPE 
ou 
SSNEWTEST \$STN,<>,<> 
.ENDC 
IF NE 40008$SWR 
“1F NB 


SEQ 0067 


CNDUU=A MACY11_ 30(1046) 
CNDUUA.M11 29-0CT-82 13: 
(3) 003 


oooo ooo 
oooo ooo 
NO MT 


001 
000 
000000 


005456 


{hapetose 


10:02 PAGE 62-54 


INITIALIZE THE COMMON TAGS 


«IF LE <-1> 
FF MOV #1, STIMES 
MOV #,STIMES 
-ENDC 
-ENDC 
IF NB 
MOV #,$LPADR 
-ENDC 
~ENDC 
IF NB 
oIF DF SMAIL 
- IRP TNM,<\STN=1> 
MOV #°TNM,STESTN 
-ENDM 
~ENDC 
~ENDC 
»REPT 0 
»NLIST 
at 10 


T 
- IRP $SDN,<\$N> 
NEWTST 


MOV #SDN,S$TSTNM 


3.11F NB >, MOV 
3.11F NB <>, MOV 


L 
-IRP SDE, <\SE> 


: MOV #.EOP NEXT 


NB <>, MOV 


ST’ $DE 
MOV #TST'SDE NEXT 


3:00 1 ITERATION 
33:D0 ITERATIONS 


:3SET SCOPE LOOP ADDRESS 


3;SET TEST NUMBER IN APT MAIL BOX 


sSAVE THIS 
#, RETURN :SET UP THIS RETURN 
#, 1COUNT 3SET UP THIS ICOUNT 


MOV #,NEXT ;GO TO THIS TEST WHEN THRU 


360 TO THIS TEST WHEN THRU 


3;GO TO THIS TEST WHEN THRU 


#,LOCK ;SET UP FOR SCOPE LOOP 


e N 
TSETUP MINT,SYNINT, EIGHT ,EVEPAR,26 


SEQ 0068 


CNDUU=A MACY11 
CNDUUA.M11 2 


LL RL BL mm mm my yy Ey my ey my fm ey ym, mm i, fl, i, i, i, in, Pe fe, ill, im fm, lm iim, fn, Pm in, 


ek me ON a kk a kd BINA) dd et i I) at at ot ot = PNP PU PU FU) 


ee ee we ee © wee ee ee ee ee te es SS YS YS YS SS YS SS SY YY YS we Ye we 


005456 


Sooooo ooooo 
ooooo ocCooocKo 


00 


NSAAAOUUES wWron—oO 
NMNALOPCONMwN LAOLO 


005622 


005624 
005630 


005632 


005640 
005644 


005660 


005662 


0(1046) 


“OCT-82 13:2 


Soooo o-coCo°o°o 


oo 
on 
-on 
so 
oo 
at 


104003 


005367 
001352 


052777 
001 
012700 


104003 


000400 
030000 


000400 


173272 


020000 


{ospeEC~Be 


174242 
174230 


174226 


174220 


174066 


10: 0 PAGE 62-55 


INITIALIZE THE COMMON TAGS 


SRESET 


SRESET 


BIS MMRESET,@TXCSR ;MASTER RESET 
MOV #SYNINT ,@PARCSR SET THE MODE 


BIS WMRESET,@TXCSR ;MASTER RESET 


3 SET MAINTENANCE MODE & 
NOTE :BIT 


SEND 
WINDOWS CLK ARE CLEARED (MTDATA=0) 
hov #MINT! SEND ,@TXCSR 


sSET MODE,# OF BITS. PARITY SENSE,& LOAD SYNC REG 
MOV YNINT HEIGHT tEVEPAR® > 26, aPARCSR 
MOV RR sSET UP FOR ERROR MSG 
MOVB a0 ,ariDeur ‘LOAD DATA CHA 
MOV #0, stMP | :TO BE SHIFTED CHAR 
MOV HIFT “# OF SHIFTS 
jPOxe CLK TO GET wats SYNCRONIZATION 
BIS #CLK,aTXCSR :POKE CLK UP 
BIC #CLK,aTXCSR SPOKE CLK DOWN, 
1$: CLR @ 
ROR S$TMP1  ;FORCE CARRY 
BCC $ ‘BR IF CARRY CLR 
- BIS #B1TW,RO sEQUIV OF BITW 
BIS #CLK,@TXCSR ;POKE CLK UP 
BIC wcLK, aTXCSR :POKE actk DOWN 
MOV atxcse ACTUA 
BIC aOrs77 a54r a AVE BITW & DNA 
chp RO,R1 s COMPARE’ PNP VS ACT 
a 
ERROR 3 sBIT WINDOW DID NOT MATCH ACTUAL DATA 
DEC SHIFT i# Of 
BNE [D0 IT AGAIN ? 
zNOW POKE CLK TO SEE DNA 
BIS #CLK,aTXCSR ;POKE CLK 
IE AON <[SYMOD>, <SYNINT> 
i MOV #0O,RO EXPECTED 
MOV #100000,R0 TEXPECTED 
.ENDC 
MOV aTXCSR,R1 
BIC #777771 Aa NDNA ONL 
CAP RO,R1 COMPARE EXP’ VS ACT 
* 
ERROR 3 ;DNA SHOULD BE SET 
[IF DNA DID NOT SET 
[CHECK WORD LENGTH SELECT LOGIC 
STRPAR EIGHT,9. ODDPAR SYNINT,0,400 


T:THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 


‘ IMODE : SYNINT 


SEQ 0069 


CNDUU-A_MACY11 D9 ne | 


CNDUUA.M11 


~~ 
— 
— 


ee ee ee ee tee ae tea la eee a ee a ee 
WWWAAWAANNAWNWNNANNAA & & BANANA NNN ni & BB EEE ERE EEE PAWN Oe 
ee ee ee eee eee ee Sw www ww Yew ewww eevee ~ 


29-0(T- 


00566 
00566 
ooogee 
005662 
005662 
002 


001 
005662 000004 
000013 


») 14 
2 13: 


spec~8e 10:02 PAGE 62- 
2 I Ze 


NITIALI OMMON TAGS 


0 
:0 


SSNEWTEST 
ASCI,<> 
SNWTST 
=1 
T12 ASCI 


T 12 ASCI 


eNLIST 


-ENDC 
TST12: SCOPE 
STN=STN¢1 


SSNEWTEST 
-ENDC 
- IF NE 40008$SWR 
~IF NB 
IF LE <-1> 
MOV #1, STIMES 


MOV #, STIMES 


FF 


MOV #,SLPADR 


\STN-1> 
MOV #°TNM,STESTN 


sEIGHT PLUS PARITY 
:ODDPAR 


\STN, <>, SCOPE 


SARA AAAEA AEA ATAEEEAA AEE TAAAAAEREAAAHEHERARAKRAKKRARRAAR AAAS 


\SIN,<>,<> 


3:D0 1 ITERATION 
33;D0 ITERATIONS 


3:SET SCOPE LOOP ADDRESS 


33;SET TEST NUMBER IN APT MAIL BOX 


SEQ 0070 


CNDUU=A MACY11 30(1046) 14=DEC-82 10:02 PAGE 62-57 
25cot a8 1 } I 


CNDUUA.M11 3:2 NITIALIZE THE COMMON TAGS SEQ 0071 
(3) 001 -ENDC 
(3) 000 ~ENDC 
(2) 000000 eREPT 0 
(2) eNLIST 
(2) eRADIX 10 
(2) LIST 
(2) .1RP $DN,<\$N> 
(2) NEWTST 
(2) : MOV #S0N,STSTNM SAVE THIS 
(2) ~END 
(2) »NLIS 
(2) sRADIX 8 
(2) «LIST 
(2) 3-11F NB <>, MOV #, RETURN SET UP THIS RETURN 
(2) 3.11F NB <>, MOV #, 1COUNT :SFT UP THIS ICOUNT 
(2) 3.1F NB <> 
iH sae MOV #,NEXT ;GO TO THIS TEST WHEN THRU 
(2) »NLIST 
(2) eRADIX 10 
(2) LIST 
(2) .IRP SDE ,<\SE> 
(2) .IF DF TST'SDE 
(2) MOV #TST'SDE,NEXT ;:GO TO THIS TEST WHEN THRU 
(2) ~ENDM 
(2) eNLIST 
(2) »RADIX 
(2) LIST 
(2) oIFF 
(2) : MOV #.EOP,NEXT :GO TO THIS TEST WHEN THRU 
(2) eENDC 
(2) -ENDC 
(2) 311F NB <>, MOV #,LOCK ;SET UP FOR SCOPE LOOP 
(2) eNLIST 
(2) eRADIX 10 
(2) $N=SN+1 
(2) $E=$E+1 
(2) »RADIX 
(2) LIST 
(2) ~ENDR 
(1) 005664 TSETUP MINT, SYNINT,EIGHT,ODDPAR, 26 
(2) 005664 SRESET 
(3) 095664 052777 000400 174034 BIS WMRESET,@TXCSR ;MASTER RESET 
(2) 905672 012777 030000 174022 MOV #SYNINT,@PARCSR ;SET THE MODE 
(2) 005700 SRESET 
1 005700 052777 000400 174020 BIS #MRESET,@TXCSR ;MASTER RESET 
(2) SET MAINTENANCE MODE & SEND 
(2) s:NOTE:BIT WINDOWBCLK ARE CLEARED (MTDATA=0) 
is} 005706 012777 004020 174012 MOV #MINT'SEND, aTXCSR 
(2) SET MODE.# OF BITS,PARITY SENSE,& LOAD SYNC REG 
(2) 005714 012777 037026 174000 MOV #SYNINT ‘EIGHT !ODDPAR! 26, @PARCSR 
(1) 005722 016703 174000 MOV TXCSR,R3 SET UP FOR ERROR MSG 
(1) 005726 112777 000000 173776 MOVB #0, aTXDBUF sLOAD DATA CHAR 
(1) 005734 012767 000400 173536 MOV #460,$TMP1 'TO BE SHIFTED CHAR 


CNDUU-A_MACY11 8 
CNDUUA.M11 2 


005742 
005750 


~~ 
— 
— 


006032 
006036 


006040 


006046 


006066 


006070 


006070 
006070 


006070 


LC LL LL LL mm et mm my iy lm mm my fe ny my ey my my my Pe fm my lm Pm fm fm Fm om fm 


BPRRLL EAAAD 2 2 2 2 2 OO 9 9 9 9 2 2 8 SSN 2 OS SON OS 
ee Ne ee ee ee ee ee a ee ee ee ae ee eee ee es es es ee SS ee we we ee we ee Se ee ew ee eee 


9 'ne 14 1 


-0CT- 
012767 


—ODOCCoOoO Oo-Coo°o°o 
SCO CONMF—FU MOCO 


oo 


104003 


000000 
001 


000011 
020000 
020000 
173506 
002000 
020000 
90000 
173706 
075777 


173064 


020000 


100000 


173650 
077777 


_ 10:02 PAGE 62-58 


INITIALIZE THE COMMON TAGS 


173152 MOV -# OF SHIFTS 
pone CLK TO GET ats" A YNCRONIZATION 
17375 BIS #CLK,aTXCSR :POKE CLK UP 
17374 ™ Bit #CLKATXCSR POKE CLR DOWN 
; ROR $TMP1 sFORCE CARRY 
BCC $ ‘BR IF CARRY CLR 
- BIS #B1TW,RO” sEQUIV OF BITW 
173720 BIS #CLK,@TXCSR sPOKE CLK uP 
173712 BIC ack aTxCsR ;POKE CLK DOWN 
MOV XC§R RI UAL 
BIC aONsT TPR SAVE BIT & DNA 
cn ROR REOMPARE’ EXP VS ACT 
+ 
ERROR 3 ;BIT WINDOW DID NOT MATCH ACTUAL DATA 
IT 22 ,ALSO CHECK DNA 
DEC SHIFT is OF SHIFTS 
BNE 1$ DO IT AGAIN ? 
sNOW POKE CLK TO SEE DNA’ 
173660 BIS #CLK,aTXCSR :POKE CLK 
ter IDN <ISYMOD>, <SYNINT> 
om MOV #0,RO ;EXPECTED 
4 MOV #100000,R0 SEXPECTED 
.ENDC 
MOV aTxcsR, Rt ACTU 
BIC w77E7T AR + OAVE MONA ONL 
CMP RO,R : COMPARE EXP. VS ACT 


BEQ RY) 
ERROR 3 


sDNA SHOULD BE SET 
DNA DI 


IF D NOT SET 
;CHECK WORD LENGTH SELECT LOGIC 


STRPAR cle 9, EVER AR SYNINT 377,377 


S7THIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 


320F THE TRANSMITTER SECTION. 


ALSO CHECKS 
MODE SYNINT 


DNA TIMING 


73LEN rie: EIGHT PLUS PARITY 


3 ;PARITY:EVEPAR 
3: CHARACTER: 377 


$TSTNO 


\$STN,<>,SCOPE 


SEQ 0072 


CNDUU-A MACY11 30(1046) 14=DEC-82 10:02 PAGE 62-59 
23 8) 13:27 I ZE TH 


CNDUUA.M11 -0CT NITIALI — COMMON TAGS SEQ 0073 
(4) STARS 
(4) s*TEST 13 ASCI 
(4) oIFF 
(4) ASC] 
(4) ~ENDC 
(4) .ENDM 
(4) 006070 STARS 
(5) 002 IF 
(5) Z RRAARRAERARARRRARERAEARAERAERERTAEAEKAEARATARAAARHARARARARAEARETARAAATARAEEEEE 
(5) J IFF 
(5) eNLIST 
(5) eREPT 
(5) LIST 
(5) FERRARA AAAA RAAT ARATE TEE AAR AREA HAAR AAAHAERAAEREREEHERERS 
(5) »NLIST 
(5) .ENDR 
(5) LIST 
(5) 001 ~ENDC 
ra 006070 000004 TST13: SCOPE 
(4) 000014 STN=$TN#1 
(3) o1FF 
(3) SSNEWTEST \$TN,<>,<> 
<3) 000 -ENDC 
(3) 001 IF NE 40008$SWR 
(3) 002 IF NB 
(3) 003 IF LE <-1> 
(3) ve MOV #1,$TIMES 33;D0 1 ITERATION 
(3) MOV #,STIMES 3:00 ITERATIONS 
(3) 002 -ENDC 
(3) 001 ~ENDC 
(3) 002 IF NB 
(3) MOV #,$LPADR 3:SET SCOPE LOOP ADDRESS 
(3) 001 -ENDC 
(3) 000 -ENDC 
(3) 001 If NB 
(3) 002 ~1F DF SMAIL 
(3) .IRP TNM, <\$TN-1> 
(3) MOV #° TNM,STESTN 3;SET TEST NUMBER IN APT MAIL BOX 
(3) .ENDM 
(3) 001 -ENDC 
(3) 000 -ENDC 
(2) 000000 REPT O 
(2) eNLIST 
(2) eRADIX 10 
(2) LIST 
(2) . IRP $DN,<\$N> 
(2) NEWTST 
(2) 3 MOV #S0N,STSTNM sSAVE THIS 
(2) ~ENDM 
(2) eNLIS 
(2) RADIX 8 
(2) LIST 
(2) >. LIF NB >, MOV # RETURN 7SET UP THIS RETURN 
(2) 3.11F NB <>, MOV #, ICOUNT 3SET UP THIS ICOUNT 


CNDUU=A_MACYT1 30: 1046) 14=DEC-82 10:02 PAGE 62- 
ENDUUALRIT. '2de0cT=82 13:27" Twit prise ta 


INITIALIZE THE COMMON TAGS SEQ 0074 
(2) :.1F NB <> 
( wat MOV #,NEXT ;:GO TO THIS TEST WHEN THRU 
(2) «NLIST 
(2) eRADIX 10 
(2) LIST 
(2) ~IRP $e eS\SED 
(2) “IF DF TST? 
(2) : MOV MTST'SDE,NEXT :G0 TO THIS TEST WHEN THRU 
(2) ~ENDM 
(2) eNLIST 
(2) ~RADIX 
(2) «LIST 
(2) wIFF 
(2) : MOV # EOP NEXT :GO TO THIS TEST WHEN THRU 
(2) ~ENDC 
(2) ~ENDC 
(2) 3.11F NB ©, MOV #,LOCK ;SET UP FOR SCOPE LOOP 
(2) “NLIST 
(2) sRADIX 10 
(2) $N=$N41 
(2) $E=SE+1 
(2) eRADIX 8 
(2) sLIST 
(2) SENDR 
(1) 006072 TSETUP MINT, SYNINT,EIGHT,EVEPAR, 26 
(2) 006072 SRESET 
(3) 006072 052777 000400 173626 BIS #MRESET,@TXCSR ;MASTER RESET 
(2) 006100 012777 030000 173614 MOV #SYNINT,@PARCSR :SET THE MODE 
(2) 006106 SRESET 
(3) 006106 052777 000490 173612 BIS WMRESET,@TXCSR ;MASTER RESET 
(2) ;SET MAINTENANCE MODE & SEND 
(2) NOTE:BIT WINDOWGCLK ARE CLEARED (MTDATA=0) 
(2) 006114 012777 004020 173604 ov #MINT! SEND, aTXCSR 
(2) sSET MODE.# OF BITS, PARITY SENSE. L LOAD SYNC REG 
(2) 006122 012777 037426 173572 MOV sy NINT! EIGHT EVEPA AR! 26, @PARCSR 
(1) 006130 916703 173572 MOV XCSR,R3 3SET UP FOR ERROR MSG 
(1) 006134 112777 000377 173570 MOVB renee aT xXDBUF 3LOAD UDA TA CHA 
(1) 006142 012767 000377 173330 mov #37? sin mpl i10 BE SNNESEDY CHAR 
(1) 006150 012767 000011 172744 OF SHIFTS 
(1) aesies POKe uk Yo GET eaten A NCRONIZATION 
(2) 006156 052777 020000 173542 BIS #CLK,aTXCSR :POKE CLK UP 
(2) 006164 042777 020000 173534 BIC #CLK.aTXCSR :POKE CLK DOWN 
(1) 006172 005000 1$: CLR 
(1) 006174 006067 173300 ROR STMP1 ;FORCE CARRY 
(1) 006200 103002 BCC ‘BR IF CARRY CLR 
(1) 906202 052700 002000 m= BIS #B1TW,RO sEQUIV OF BITW 
(2) 906206 052777 020000 173512 BIS #CLK,aTXCSR :POKE CLK UP 
(2) 006214 042777 920000 173504 BIC #cLk, OTXCSR SPOKE CLK DOWN 
(1) 006222 017701 173500 MOV aTxcsR ZACTUAL 
(1) 006226 042701 075777 BIC aONSTe R AVE BITW & DNA 
(1) 006232 020001 CMP RO,R1 RE OMPARE’ PNP vS ACT 
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s0ee36 


006240 
006244 


006246 


006254 
006260 
006264 
006270 
006272 
006274 


006276 


006276 
006276 


006276 


006276 


LL LPP PAL my im, fm, el in, i i PL he 


MUMMNA AVI E BEER RRR PWAAD 2 2 OF Ss 2 os 
ee ee ee er es a ee ee a a ee ee ee ee ee ee ee ee we ee ee ee ee ee ee el ee ea 
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001401 
104003 


005367 
001352 


052777 
001 


000000 
001 


002 


172656 


020000 


100000 


173442 
077777 


-82 10: 02 PAGE 62-61 
INITIALIZE THE COMMON TAGS 
BEQ +4 
ERROR 3 :BIT WINDOW DID NOT MATCH ACTUAL DATA 
BIT +e ALSO CHECK DNA 
DEC SHIFT :# OF SHIFTS 
BNE 1$ [DO IT AGAIN ? 
:NOW POKE CLK TO SEE DNA 
173452 BIS #CLK ,aTXCSR :POKE CLK 
HE 1DN <ISYMOD>, <SYNINT> 
~ MOV #0.RO  ;EXPECTED 
MOV #100000,R0 SEXPECTED 
.ENDC 
MOV @TXCSR,R1 sACTU 
BIC #77777,R1 ‘SAVE ANA ONL 
CMP RO,R1 : COMPARE EXP” VS ACT 
BEQ + 
ERROR 3 ;DNA SHOULD ae SE! 
F DNA DID NOT SET 
ZCHECK WORD VENGTH SELECT LOGIC 
STRPAR EIGHT,9. ,ODDPAR SYNINT 377,777 
HIS TEST VERIFYS CHARACTER PLUS PARITY GENERATION 
SOF HE TRANSMITTER SECTION. 
3317 ALSO CHECKS DNA TIMING 
[MODE : SYNINT 
i SLENGTH: FIGHT PLUS PARITY 
PARITY: ODDPAR 
3: CHARACTER: a 
$TSTNO 
NEWTST 
SNUTST=0 
tra ead \STN,<>,SCOPE 
RP ASCI,< 
IF €Q snutst 
*NLIST 
$NWTST=1 
.SBTTL 114 ASCI 
“LIST 
STARS 
S*TEST 14 ASCI 
~IFF 
ASCI 
.ENDC 
* ENDM 
ata 
° RRA EKER KRKKAKREARARARARAARERERARRARAERERARREERER 
FF 
“NLIST 
“REPT 
“LIST 


peeeeeeraeteeeeeeerereeeetereeeeeeeeetekateeKaeeeneneneeneeeneneet 


‘ALIST 


3 
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ee ee et Pletal teletlatetetateteateal ttetetetet tate, tel tetetetetteteletetetetoe 
RORSPOPORIPO PPO NGPYPG NNO PNO NY PUPUNPIPUNINININININININ WWW ANANNNAWNAAWNANNWNNNW WE BB 
Oh 9 BS YS BS 
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3 ne | 
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001 
006276 000004 


000015 


001 
000 
000000 


spe 


10: ss natin 


62-62 
INITIALIZE TH 


| E COMMON TAGS 


wa —te «© « 
-—OuNV"E 
OAD 


. 
Mm eee TIT OTT eee Te ee OCT 


SSNEWTEST 
40008$SwR 


<-1> 
MOV #1,S$TIMES 


oIFF 
MOV #,STIMES 
eENDC 
eENDC 
IF NB 
MOV #,SLPADR 
~ENDC 
-ENDC 
IF NB 
IF DF SMAIL 
.IRP TNM,<\$TN=1> 
MOV #° TNM,STESTN 
NDM 
~ENDC 
~ENDC 
REPT 0 
eNLIST 
eRADIX 10 
LIST 
- IRP $DN,<\$N> 
NEWTST 
: MOV #SON,STSTNM 
~ENDM 
eNLIST 
eRADIX 8 
LIST 
31IF NB <>, MOV 
3e11F NB <>, MOV 
3-1F NB <> 
3 MOV # NEXT 
oIFF 
eNLIST 
RADIX 10 
LIST 
- IRP SDE <\SE> 
"IF DF TST *S$DE 
3 MOV #TST*SDE NEXT 
~ENDM 
eNLIST 
RADIX 8 
LIST 
oIFF 


MOV #.EOP NEXT 


\$STN,<>,<> 


3;D0 1 ITERATION 
3:D0 ITERATIONS 


:3SET SCOPE LOOP ADDRESS 


3;SET TEST NUMBER IN APT MAIL BOX 


7SAVE THIS 
#, RETURN sSET UP THIS RETURN 
#, 1COUNT sSET UP THIS ICOUNT 


:GO TO THIS TEST WHEN THRU 


:GO0 TO THIS TEST WHEN THRU 


GO TO THIS TEST WHEN THRU 


SEQ 0076 


M 
CNDUU-A_MACY11 30(1046) 14=-DEC-82 10: 7. PAGE 62-63 . 


0 CNDUUA.M11  29-0CT-82 13:27 NITIALIZE THE COMMON TAGS SEQ 0077 
(2) .ENDC 
(2) SENDC 
(2) :.11F ©, MOV #,LOCK ;SET UP FOR SCOPE LOOP 
(2) eNLIST 
(2) sRADIX 10 
(2) $N=$N+1 
(2) SE=$E+1 
i$} »RADIX 
(2) LIST 
(2) SENDR 
(1) 006300 TSETUP MINT,SYNINT,EIGHT,ODDPAR, 26 
(2) 006300 SRESET 
(3) 006300 052777 000400 173420 BIS WMRESET,@TXCSR ;MASTER RESET 
(2) 006306 012777 030000 173406 aeee MOV WSYNINT.@PARCSR :SET THE MODE 
(3) 006314 052777 000400 173404 BIS WMRESET,@TXCSR ;MASTER RESET 
(2) ;SET MAINTENANCE MODE & SEND 
(2) :NOTE:BIT OT NDOWe ELK ARE CLEARED (MTDATA=0) 
(2) 006322 012777 004020 173376 MOV #MINT'SEND,a@TXCSR 
(2) rSET MODE , ait OF BITS,PARITY SENSE,& LOAD SYNC REG 
(2) 006330 012777 037026 173364 #SYNINT ‘EIGHT !ODDPAR! 26, aPARCSR 
(1) 006336 016703 173364 MOV TXCSR,R3 7SET UP FOR ERROR MSG 
(1) 006342 112777 000377 173362 MOVB  #377,aTXDBUF 3 LOAD DATA CHAR 
(1) 006350 012767 000777 173122 MoV 477781 MP1 i10 BE SHIFTED CHAR 
(1) 006356 012767 000011 172536 SHIFT OF S 
(1) : POKE CLK to GET wate SYNCRONIZATION 
(1) 00636 $POKE 
(2) 006364 052777 020000 173334 BIS #CLK,@TXCSR sPOKE CLK UP 
(2) 006372 042777 020000 173326 BIC #CLK.aTXCSR SPOKE CLK DOWN 
(1) 006400 005000 1$: CLR R 
(1) 006402 006067 173072 ROR $TMP1 FORCE CARRY 
(1) 006406 103002 BCC [BR IF CARRY CLR 
Cv) 006410 052700 002000 “ BIS #B1TW,RO- sEQUIV OF BITW 
(2) 006414 052777 020000 173304 BIS #CLK,aTXCSR sPOKE CLK UP 
(2) 006422 042777 020000 173276 BIC #cLk ATXCSR SPOKE CLK DOWN 
(1) 006430 017701 173272 MOV XC§R S ACTUAL 
(1) 006434 042701 075777 BIC OOS TTP TR sSAVE BITW & DNA 
(1) 006440 020001 CMP RO,R1 RT OMPARE® EXP VS ACT 
(1) 006442 001401 BEQ + 
(1) 006444 104003 ERROR 3 BIT WINDOW DID NOT MATCH ACTUAL DATA 
(1) BIT “es ALSO CHECK DNA 
(1) 006446 005367 172450 DEC SHIFT :# OF § 
(1) 006452 001352 BNE 1$ D0 IT sNe Ali ? 
(1) sNOW POKE CLK TO see DNA 
(1) 006454 052777 020000 173244 BIS #CLK,aTXCSR sPOKE CLK 
(1) 001 IE IDN <1SYAOD>. <SYNINT> 
) ae MOV #0,RO  ;EXPECTED 
(i ° 
(1) 006462 012700 100000 ae MOV #100000,R0 SEXPECTED 
(1) 006466 017701 173234 MOV aTXCSR,R1 S ACTUAL 
(1) 006472 042701 077777 BIC #77777.R1 [SAVE DNA ONLY 
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651046 

“OC T= “83 13 INITIALIZE THE COMMON TAGS SEQ 0078 
0001 MP RO,R : 

5000! ¢ P 0,R1 ;COMPARE EXP VS ACT 

04003 


~~ 
—s 
ee 


+6, 
ERROR 3 DNA SHOULD BE SET 


NOT S$ 
;CHECK WORD LENGTH SELECT LOGIC 


AO 2 2 
WUEWewwww 


33 THIS TE 
: ° a 


+3 Y SENDING a one SYNC 
THEN SEND 

=0 

RE 


B 
BY STR aig Fe CACT =0 

1 buat (TO BREAK UP THE SEQUENCE) 
L 


& 


T WILL TAKE TWO MORE SYNC CHARS 


NLY WORK WHEN TWO SYNC CHARS 
rT eect JUMP AROUND THIS TEST 


e 
s 
@o 
m 
an 
mo 
@--D 
m—- 
sagZmMn-s: MED 


;sPARITY: NOPAR 
: LENGTH: EIGHT 


[THIS TEST CHECKS ONLY THE RECEIVER SECTION 
006504 $isTNO 
006504 NEWTST 
000000 SNWTST=0 
001 B <> 
006504 SSNEWTEST \STN, <>, SCOPE 


ASCI,<> 
TST 


ee ee ee ee ee ee ee ee ee a ea a ea ee a rr hh he a ha 


ee ew we SYS YY DSOU SE WIN "OODO~N 
= bad 
2a 
= 


TEST 15 ASCI 


M 
006504 STARS 
002 IF B 


eeeeeeeeeeeeeeeeeeereeeeeeeeeeeeeeeeeeeeeeeeeeneeeeeeeeerenee 
vIF 
“NLIST 
oREPT 
-LIST 
sReReRKeeeeReeeeeeeeeeeeeeeeeereteteeeneeeneneeeerenereneeeeee 
AL IST 
Elst 
001 ENDC 
006504 000004 is115: SCOPE 
000016 STN=STN¢1 


: SSNEWTEST \$SIN, <>, <> 
000 ENDC 


NNIWWIW REE EEEEE E EAWAANAANNANNNNIIINIIID 2S SSNS O 


ee ee ee ee a ee i ee a ee ee ee ee ee ee ee ae ee ee ee 


Nm 
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8 
10:02 PAGE 62-65 
INITIALIZE THE COMMON TAGS 
IF NE 40008SSWR 
IF NB 
IF LE <=1> 
ie MOV #1,STIMES 
MOV #,STIMES 
eENDC 
eENDC 
IF NB 
MOV #,SLPADR 
eENDC 
-ENDC 
IF NB 
IF DF SMAIL 
IRP ™NM,<\$7N-1> 
MOV #" TNM,STESTN 
~ENDM 
eENDC 
eENDC 
REPT 0 
eNLIST 
eRADIX 10 
LIST 
~IRP $DN,<\$N> 
NEWTST 
; MOV #SD0N,STSTNM 
~ENDM 
eNLIST 
RADIX 
LIST 
:-1IF NB >, MOV 
3.11F NB <>, MOV 
3-1F NB <> 
s MOV # NEXT 
oIFF 
eNLIST 
RADIX 10 
LIST 
- IRP SDE ,.<\$E> 
IF DF TST'SDE 
3 MOV #TST'SDE NEXT 
~ENDM 
eNLIST 
RADIX 
LIST 
oIFF 
3 MOV #.EOP,NEXT 
eENDC 
-ENDC 
3 -11F NB <>, MOV 
eNLIST 
RADIX 10 
SN=$N+1 
$E=SE+1 
RADIX 8 
LIST 


7 


SEQ 0079 


33:D0 1 ITERATION 
3300 ITERATIONS 


3:SET SCOPE LOOP ADDRESS 


3;SET TEST NUMBER IN APT MAIL BOX 


sSAVE THIS 
#, RETURN 3SET UP THIS RETURN 
#, 1 COUNT 3SET UP THIS ICOUNT 


:GO TO THIS TEST WHEN THRU 


:GO TO THIS TEST WHEN THRU 


3G0 TO THIS TEST WHEN THRU 


#,LOCK ;SET UP FOR SCOPE LOOP 


CNDUU=A MACY11 30(1046) 14=EC-B2 10:02 PAGE 62-66 
CNDUUA.M11  29-0CT-82 13:2 INITIALIZE THE COMMON TAGS SEQ 0080 
(1) .ENDR 
8179 006506 105767 172434 TSTB YNCNO ;TEST FOR # OF SYNC CHARS REQUIRED 
8180 006512 100127 BPL “IF NOT TWO GET OUT OF TEST 
8181 906314 RSE TUP MINT, SYNINT, EIGHT ,NOPAR, 26 
(2) 006514 052777 990400 173204 BIS WMRESET,@TXCSR ;:MASTER RESET 
(1) 0065¢2 012777 030000 173172 MOV #SYNINT.@PARCSR :SET THE MODE 
(1) 006530 SRESET 
(2) 006530 052777 000400 173170 BIS WMRESET,@TXCSR ;MASTER RESET 
(1) sSET MAINT DATA,CLK,BREAK,&@MAINTENANCE MODE 
(1) 006536 012777 064001 173162 MOV #MTDATA'CLK MINT 'BREAK, @TXCSR 
(1) sSET MODE ,# OF BITS,PARITY SENSE,@LOAD SYNC REG 
(1) 006544 012777 036026 173150 MOV #SYNINT !EIGHT ‘NOPAR! 26, @PARCSR 
8182 006552 SSYNCR 
(1) 006552 052777 000020 173132 BIS #SYNSCH,@RXCSR ;SET SYNC SEARCH 
(1) -POKE CLK TO GET RECEIVER IN1O SYNCROIZATION.... 
(1) 006560 042777 020000 173140 BIC #CLK,aTXCSR SPOKE CLK DOWN 
(1) 006566 052777 020000 173132 BIS #CLK aTXCSR SPOKE CLK UP 
8183 006574 SPOKER 
(1) SPOKE CLK TO GET LOGIC INTO SYNCRONIZATION 
(1) 006574 042777 020000 173124 BIC #CLK,aTXCSR sPOKE CLK DOWN 
(1) 006602 052777 020000 173116 B1S #CLK,aTXCSR SPOKE CLK UP 
8184 006610 012767 000010 172304 MOV #8. SHIFT :# OF SHIFTS 
8185 006616 012767 000026 172654 MOV #26,$TMP1 °SYNC CHAR TO BE SHIFTED IN 
8186 006624 004767 010342 JSR PC ,RPOKE :SHIFT IN THIS SYNC CHAR 
8187 006630 032777 004000 173054 BIT WRECACT.ARXCSR :RECACT = 0 ? 
8188 006636 001401 BEQ +4 
8189 006640 104004 ERROR 4 *RECACT SHOULD BE 0 
8190 006642 012767 000010 172252 MOV #8. SHIFT :# OF SHIFTS 
8191 006650 012767 000025 172622 MOV #25.$TMP1 TANY CHARACTER 
8192 006656 004767 010310 JSR PC RPOKE ?SHIFT IN THIS CHARACTER 
8193 sYOU HAVE JUST LOST SYNCRONIZATION.......ceceeees ieee 
8194 “POKE THE CLK TWICE TO GET INTO SYNCRONIZATION 
8195 006662 POKER 
(1) sPOKE CLK TO GET LOGIC INTO SYNCRONIZATION 
(1) 006662 042777 020000 173036 BIC #CLK,aTXCSR sPOKE CLK DOWN 
(1) 006670 052777 020000 173030 BIS #CLK,aTXCSR :POKE CLK UP 
8196 006676 SPOKER 
(1) 3POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
(1) 006676 042777 020000 173022 BIC #CLK,aTXCSR :POKE CLK DOWN 
(1) 006704 052777 020000 173014 BIS #CLK aTXCSR SPOKE CLK UP 
8197 906712 012767 000002 172204 MOV #2, COUNT *# OF SYNC CHARS 
8198 006720 032777 004000 172764 1$: BIT #RECACT,@RXCSR :RECACT = 0 ? 
8199 006726 001401 BEQ +4 
8200 006730 104004 ERROR 4 sRECACT SHOULD BE 0 
8201 006732 012767 000010 172162 MOV #8. SHIFT :# OF SHIFTS 
8202 006740 012767 000026 172532 MOV #26.$TMP1 ?SYNC CHAR 
8203 006746 004767 010220 JSR PC ,RPOKE SSHIFT IN THIS SYNC CHAR 
8206 006752 005367 172146 DEC COUNT 
8205 006756 001360 BNE 1$ :1S COUNT = 0 ? NO GO AGAIN 
8206 006760 032777 004000 172724 BIT WRECACT,A@RXCSR ;RECACT = 1 ? 
8207 006766 001001 BNE .¢ 
8208 006770 104004 ERROR & ;RECACT SHOULD BE ASSERTED 
8209 006772 2$: 
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GE 62-67 
TIALIZE THE COMMON TAGS 

ss THIS TEST VERIFYS MODE SELECT... 

SISYNC EXTERNAL VS. SYNC INTERNAL 
Bastcauy THE TEST CHECKS THAT THE RECEIVED 
[DATA FREEZES IN SYNC INTERN 
31N SYNC EXTERNAL THIS DATA Ws TRANSPARENT 
STHIS TEST ONLY APPLIES TO THE RECEIVER SECTION 
jiOTE: SEARCH SYNC IS NOT SET 
NEWTST 
SNUTST=O 
: SSNEWTEST \STN,<>, SCOPE 

IRP —ASCI,< 
“IF £0 snurst 
*NLIST 

NWTST=1 

eBTTL 116 ASCI 
“LIST 
STARS 
S*TEST 16 ASCI 
, ASCI 
.ENDC 
END 
As 
. A sth hgh ab ig gh ac ta An amt ln tenner eg 

“FF 
“NLIST 
List 


PUMA aKeeAeeeReeeKeAeeee Kee eeeAKKAKeeHKeKAKeKRKeKAAKetKeeenenee 


EN 
TST16: SCOPE 
STN=$TN+1 
oIFF 
SSNEWTEST \$SIN,<>,<> 
ENDC 
F NE 40008$SWR 


LE <-1> 
MOV #1,STIMES 3:00 1 ITERATION 


MOV #,STIMES 3:00 ITERATIONS 


MOV #, SLPADR 33SET SCOPE LOOP ADDRESS 


SEQ 0081 


CNDUU-A MACY11 30(1046) 14=DEC-82 10: 0 PAGE $26 8 
CNDUUA.M11 29-0CT=82 13:27 INITIALIZE THE COMMON TAGS SEQ 0082 


— 
oo 
oo 


1 -1f NB 
2 ~1f DF SMAIL 
- IRP TNMs <\$TN=1> 
MOV #° TNM,STESTN 3;SET TEST NUMBER IN APT MAIL BOX 


T 
. IRP $DN,<\$N> 
NEWTST 
MOV #SDN,STSTNM SAVE THIS 


3-11F NB <>, MOV #, RETURN ;SET UP THIS 
; TIF NB <>, MOV #, 1 COUNT sSET UP THIS 


; > 
3 MOV #,NEXT ;GO TO THIS TEST WHEN THRU 


RETURN 
I COUNT 


»RADIX 10 


- IRP SDE ,<\$E> 
IF DF TST°SDE 
; MOV MTST'SDE,NEXT  ;GO TO THIS TEST WHEN THRU 


3 MOV #.EOP,NEXT G0 TO THIS TEST WHEN THRU 


3 TIF NB <>, MOV #,LOCK ;SET UP FOR SCOPE LOOP 


006774 RSETUP MINT,SYNINT,EIGHT,NOPAR,26 

006774 SRESET 

006774 052777 000400 172724 BIS WMRESET,@TXCSR ;MASTER RESET 
007002 012777 030000 172712 dail MOV #SYNINT.@PARCSR :SET THE MODE 
007010 052777 000400 172710 BIS #MRESET,@TXCSR ;MASTER RESET 


SET MAINT DATA,CLK, BREAK, SMAINTENANCE MODE 
007016 012777 064001 172702 MOV #MTOATA!CCK MINT !BREAK ,aTXCSR 


SET MODE ,# OF BITS,PARITY SENSE,@LOAD SYNC REG 


ee eke IN) ek meh IN) mek I a ak a kk a kk i kk kk at ts ot a a PIII 


RL LPR PR PA PAPA PALS LLL me i, my Pm EE Py fly Fm fl, fm, Pe Gy Pm im im, Pm Py Pm lm Em Lm LO I fl, Fe Ee 
ee ee ee ee Oe ee SS ww we eee eee 

© 

mn 

x4 


CNDUU-A_MACY11_ 30(1046) 


CNDUUA.M11 29-0CT=82 13:2 


(1) p07 088 012777 
007032 
00703 peste? 
007040 052777 
007046 


007046 


So 
oo 
~N 


0 
007 
007156 104002 


007160 005367 
007164 001346 
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14=DEC-82 10:02 PAGE 62-69 
INITIALIZE THE COMMON TAGS 


036026 172670 MOV 


660 BIS 


SPOKER 
sPOKE CLK TO GET ite INTO eee 
BIC #CLK ,ATXCSR OKE CLK 


SPOKER 
sPOKE CLK TO GET Leer INTO re te 
B #CLK,a@TXCSR POKE CLK 


#SYNINT!EIGHT!NOPAR! 26,aPARCSR 


DOWN 
PCR. rOTXCeR SPOKE CLK uP 


020000 172652 IC ; DOWN 
020000 172644 BIS wCLK, oT Keer SPOKE CLK UP 
000010 172032 MOV SHIFT :# OF SHIFTS 
000125 172402 MOV Fi3g: STMPI *DATA CHARACTER 
W726i MOV RXDBUF ,R3 [FOR ERROR MESSAGE 
040000 172616 1$: te: #MTDATA, aTXCSR ‘CLEAR MAINT DATA 
172362 ROR STMP1  ;FORCE CARRY 
040000 172600 BIS MMTDATA,@TXCSR ;SET MTDATA 
020000 172572 2$: BIC #CLK,aTXCSR :POKE CLK 
020000 172564 BIS #CLK aTXCSR : 
000377 MOV #377,RO ; EXPECTED 
172544 MOV ARXDBUF RI s ACTUAL 

CMP RO,R1 

BEQ +4 

ERROR 2 

sDATA CHARACTER SHOULD COMPARE ensewe 
171736 DEC SHIFT z1S 11 THE LAST SHIFT ? 
BNE 1 NO . HIF SOME MORE 
RSETUP MINT, SYNEXT, EIGHT. NOPAR, 26 

000400 172532 BIS WMRESET,@TXCSR ;MASTER RESET 
020090 172520 sie MOV WSYNEXT.@PARCSR :SET THE MODE 
000400 172516 BIS #MRESET,@TXCSR ;MASTER RESET 


064001 172510 


3Se7 ee DATA,CLK BREAK ,@MAINTENANCE MODE 


#MTDATA!CLK MINT !BREAK,@TXCSR 


3SET one o# OF OIts. PARITY SENSE , @LOAD SYNC REG 


#SYNEXT EIGHT !NOPAR! 26,@PARCSR 


SPOKER 
3POKE cu TO GET otcele INTO s ere 


020000 172474 Ic TXCSR 3P K DOWN 

020000 172466 BIS #CLK.aTXCSR ;POKE CLK up 

000010 171654 MOV #8. SHIFT # OF SHIFTS 

000125 172224 MOV #125, STMP1 SDATA CHARACTER 

172222 CLR $TMPd 

172216 COMB. STMP2 = GMAKE LOW BYTE ALL 1°S 
>TO MATCH RXDBUF'S CONTENTS AFTER A MASTER RESET 

040000 172434 5$: BIC WMTIDATA,@TXCSR ;CLR MAINT DAT 

172200 ROR STMP1  ;FORCE CARRY 

040000 172416 BIS #MTIDATA,aTXCSR 

172166 6$ RORB  $IMP2 ‘:PICK UP CARRY BIT 

020000 172404 BIC #CLK,aTXCSR 

020000 172376 BIS #clk, SXCeR 


SEQ 0083 
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8256 007330 016700 172146 MOV STMP2,RO sEXPECTED 
8257 007334 83H 004 135328 MOV ARXDBUF, R1 s ACTUAL 
8258 007 23 20001 CMP RO,R1 
8259 007 001401 pee + 
8260 007344 104002 ERROR 2 DATA CHARACTER SHOULD COMPARE... 
8261 3THE DATA CHARACTER SHOULD BE SEEN AS IT 
Bc0¢ ‘SHIFTS iy ti THE RECEIVER DATA OUTPUT 
8263 007346 005367 171550 EC SHIFT 
He: 007352 001344 BNE 5$ 
8266 3; THIS TEST VERIFYS TX DONE FUNCTION, DONE = 1 
asor yt st SY NC INTERNAL 
8268 ARITY NO PARITY (NOPAR) 
8269 SELENGTH: EIGHT 
8270 
8271 007354 $istNO 
(1) 007354 NEWTST 
(2) 000000 a it en 
(2) 001 a o< 
(2) 007354 ” Ssnewrest \STN,<>,SCOPE 
(3) IRP ASCI,<> 
(3) -I1F EQ SNWTST 
(3) eNLI 
(3) SNWTST=1 
(3) -SBTTL 117 ASCI 
(3) LIST 
(3) STARS 
(3) s*TEST 17 ASCI 
(3) . 
(3) ASCI 
(3) -ENDC 
(3) ~ENDM 
(3) 007354 STARS 
(4) 002 IF 
(4) SS AAAAAAAAAAAEAAAAAEAREEAEEEARERAAKAREEAAERAA EKER ENEKAHARAAAAEA ES 
(4) oIlFF 
(4) eNLIST 
(4) REPT 
(4) LIST 
(4) PPA eteeeeaeeeeareeeeeeteteeeeeeeeeeieeneateRetAteeereeeneReeetene 
(4) eNLIST 
(4) -ENDR 
(4) LIST 
(4) 001 -ENDC 
oa: 007354 000004 TST17: SCOPE 
(3) 000020 STN=$TN+1 
(2) oIFF 
(2) SSNEWTEST \STN,<>,<> 
(2) 000 ~ENDC 
(2) 001 -1F NE 40008$SWR 
(2) 002 IF NB 
(2) 003 IF LE <=1> 
os? IF MOV #1,STIMES 3:DC 1 ITERATION 
(2) MOV #,STIMES 33:00 ITERATIONS 
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E 62-7 
cine Ne COMMON TAGS 


#,SLPADR 33SET SCOPE LOOP ADDRESS 


SMAIL 
Pp TNM,<\$T1N 
MOV yTNM, STESTN 3;SET TEST NUMBER IN APT MAIL BOX 


$DN,<\$N> 


MOV #SDN,S$TSTNM sSAVE THIS 


F NB <>, MOV #, RETURN :SET UP THIS RETURN 
 » <>, MOV #, 1 COUNT 3SET UP THIS ICOUNT 


#,NEXT ;GO TO THIS TEST WHEN THRU 


z—>rn — 


SDE ,<\SE> 


“IF DF TST *$DE 
: MOV #IST'SDE,NEXT ;GO TO THIS TEST WHEN THRU 


#.EOP,NEXT :GO0 TO THIS TEST WHEN THRU 


<>, MOV #,LOCK ;SET UP FOR SCOPE LOOP 


TSETUP MINT,SYNINT, EIGHT ,NOPAR, 26 
SRESET 


BIS MMRESET,@TXCSR ;MASTER RESET 
#SYNINT,@PARCSR :SET THE MODE 


SEQ 0085 


CNDUU-A_MACY11_ 30(104 14=DEC-82 
CNDUUA.M11 250 -0CT- 83 13:27 
(1) oor ars 
o¢? 007572 052777 000400 172326 
3 
Hy 007400 012777 004020 172320 
(1) 
ase 607406 012777 036026 172306 
8275 007414 105777 172306 
8276 007420 100401 
8277 Q07422 104904 
8278 74 112777 000021 172300 
8279 0074352 
(1) 007432 052777 020000 172266 
(1) 007440 042777 020000 172260 
8280 007446 105777 172254 
8281 007452 100001 
8282 007454 104004 
8285 
8284 007456 
(1) 007456 052777 020000 172242 
(1) 007464 042777 020000 172234 
8285 007472 105777 172230 
8286 007476 100401 
8287 007500 104004 
8288 
8289 
8290 
8291 
8292 
8295 
8294 
8295 
8296 
8297 
8298 
8299 
8300 
8301 
8302 
8305 
8304 
8305 
8306 
8307 007502 
(1) 007502 
(2) 000000 
(2) 1 
(2) 007502 
(3) 
(3) 
(3) 
(3) 
(3) 


10:02 PAGE 62-72 


INITIALIZE THE COMMON TAGS 
SRESET 


BIS WMRESET,@TXCSR ;MASTER RESET 
SET MAINTENANCE MODE & SEND 
NOTE:B1T WINDOWGCLK ARE CLEARED (MTDATA=0) 
io OV #MINT! SEND, aTXCSR 
SET MODE, at OF BITS,PARITY SENSE.& LOAD SYNC REG 
#SYNINT! EIGHT !NOPAR! 26,aPARCSR 
TSTB = @TXCSR 3 TXDONE ? 
AMI ~*4 
ERROR & ; TXDONE SHOULD BE SET 
MOVB #21 .aT xDBUF LOAD ANY CH 
SPOKE  ;POKE K TO GET INTO SYNCIRON ZATION 
BIS StLK ,aTXCSR OKE CLK 
BIC #CLK.aTXCSR SPOKE CLK NOUN 
TSTB  atXCSR 
BPL +4 
ERROR & sTXDONE SHOULD BE CLR 
SPOKE 
BIS #CLK,aTXCSR :POKE CLK UP 
BIC #CLK,aTXCSR :POKE CLK DOWN 
TSTB = ATXCSR 
BMI +4 
ERROR & :TXDONE SHOULD BE SET 
:;THIS TEST PROVES THAT RXERR FREEZES THE "RECEIVER 
S:RESET’’ WHILE IN STRIP SYNC MO 
::THIS TEST FIRST PROVES THAT AUTOMATIC RESETS OCCUR 
::WHEN STRIP SYNC IS SET AND SYNC CHARACTERS ARE SEN 
S:BUT IF AN ERROR SHOULD OCCUR...THIS AUTOMATIC Reset 
':1S DISCOMBOBULATED 
t:1E: FORCE OVERRUN (OVERRUN) WHILE STRIP SYNC IS S 
[:BY TRANSMITTING A DATA CHARACTER THEN TRANSMIT A Soe CHARACTER 
SAND DON'T READ THAT DATA CHARACTER. NOTE: NORMALLY THE LOGIC 
RESETS. THE RXDONE & ERROR FLAGS PROVIDING THAT ONLY SYNC CHARACTERS ARE 
*:MODE: SYNC EXTERNAL (SYNEXT) 
S:LENGTH: EIGHT 
S:NOTE: THIS TEST USES BOTH RECEIVER AND TRANSMITTER LOGIC 
$TSTNO 
NEWTST 
ShWTST=0 =0 
"ssneurest \$STN,<>, SCOPE 
. IRP SCi,< 
“IF £0 oatst 
“NLIST 
$nwtSt=1 


-SBTTL 120 ASCI 


SEQ 0086 


LB LL LL LP PRP PR ee me em my in, Pe in, em ee my lm lm, me im itm, 
kt td a td APR PURD UPININININIPINI PI NPIPININININININIWWIWE BERBERS EE PWIA 


ee ee a et er et et te me et te a a a a a ee a ee ee eee es ee ae 
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007502 
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007502 000004 
000021 


001 
000000 
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INITIALIZE THE COMMON TAGS 


«LIST 
STARS 
ot iat 20 ASCI 
ASCI 
~ENDC 
~ENDM 
STARS 
A 'MARBRBRABRARALALALASZERESELEREE REEL ER ER ERE RE RE RE RE RE RRR RSE RRR EASES GS | 
FF 
eNLIST 
eREPT 
LIST 
STARA AAAAAAA EAHA TAEREHEREARERAERARAEAAREARERAEHEAHHERERKERAAAAHARAEe 
eNLIST 
-ENDR 
LIST 
-ENDC 
TST20: SCOPE 
STN=$TN+1 
oIFF 
SSNEWTEST \$S™N,<>,<> 
-ENDC 
IF NE 40008$SwWR 
IF NB 
IF LE <-1> 
= MOV #1,STIMES 3:D0 1 ITERATION 
MOV #,STIMES 3:00 ITERATIONS 
-ENDC 
ENDC 
IF NB 
MOV #, SLPADR 32:SET SCOPE LOOP ADDRESS 
-ENDC 
~ENDC 
IF NB 
IF OF SMAIL 
. IRP T™NM,<\$TN-1> 
won MOV #°TNM,STESTN 3:SET TEST NUMBER IN APT MAIL BOX 
ENDC 
-ENDC 
REPT O 
eNLIST 
RADIX 10 
LIST 
. IRP $DN,<\$N> 
EWTST 
: MOV #SDN,STSTNM sSAVE THIS 
~ENDM 
eNLIST 
at 8 
3-11F NB >, MOV #, RETURN sSET UP THIS RETURN 


CNDUU-A MACY11 ZOC1046) {4speC~Be 10:02 PAGE 62-74 
CNDUUA.M11 29-0CT-82 13:2 INITIALIZE THE COMMON TAGS SEQ 0088 


<>, MOV #, 1COUNT SET UP THIS ICOUNT 


- 
at 
— 
ese 
ee 
— 
~ 


3SET MODE,# OF BITS,PARITY SENSE,& LOAD SYNC REG 
MOV SYN 


(1) 3.1F NB <> 
18 are MOV #,NEXT ;GO TO THIS TEST WHEN THRU 
(1) “NLIST 
(1) “RADIX 10 
(1) LIST 
(1) -IRP__  $DE,<\SE> 
(1) "IF DF TST*$DE 
(1) 3 MOV #TST'SDE,NEXT 3G0 TO THIS TEST WHEN THRU 
(1) ~ENDM 
(1) eNLIST 
(1) RADIX 
(1) LIST 
(1) ol FF 
(1) 3 MOV #.EOP,NEXT 3GO TO THIS TEST WHEN THRU 
(1) eENDC 
(1) ENDC 
(1) 3-11F NB <>, MOV #,LOCK ;SET UP FOR SCOPE LOOP 
(1) "NLIST 
(1) eRADIX 10 
(1) SN=$N+1 
(1) $E=SE+1 
(1) eRADIX 8 
(1) LIST 
(1) eENDR 
8308 
8309 007504 TSETUP MINT, SYNEXT,EIGHT,NOPAR, 26 
(1) 007504 SRESET 
(2) 007504 052777 000400 172214 BIS #MRESET,@TXCSR ;MASTER RESET 
(1) 007512 012777 020090 172202 MOV #SYNEXT.@PARCSR :SET THE MODE 
(1) 007520 SRESET 
of? 007520 052777 000400 172200 BIS #MRESET,@TXCSR ;MASTER RESET 
(1) ySET MAINTENANCE MODE & SEND 
(1) ;NOTE:BIT WINDOWSCLK ARE CLEARED (MTDATA=0) 
(1) 007526 012777 004020 172172 MOV #MINT!SEND,a@TXCSR 
(1) 
(1) 007534 012777 026026 172160 #SYNEXT ‘EIGHT !NOPAR! 26, @PARCSR 
8310 007542 112777 000026 172162 MOVB  #26,aTXDBUF sLOAD SYNC CHAR 
8311 00755 052777 000420 172134 BIS #SYNSCH'!STPSYN,@RXCSR :SET SYNC SEARCH & STRIP SYNC 
aai§ 007556 016703 172134 MOV RXDBUF ,R3 sSET UP FOR ERROR MESSAGE 
831 907562 012767 000003 171334 MOV #3,COUNT 3# OF TIMES SYNC WILL BE SENT 
8314 007570 SPOKE 
(1) 007570 052777 020000 172130 BIS #CLK,aTXCSR :POKE CLK UP 
(1) 007576 042777 020000 172122 BIC #CLK aTXCSR SPOKE CLK DOWN 
8315 007604 012767 000010 171310 a8: MOV #8. SHIFT :# OF SHIFTS 
(1) 007612 052777 020000 172106 BIS #CLK,aTXCSR sPOKE CLK UP 
(1) 007620 042777 020000 172100 BIC #CLK aTXCSR :POKE CLK DOWN 
8317 007626 005367 171270 DEC SHIFT 
8318 007632 001367 BNE ‘ 
8319 007634 105777 172052 TSTB = @RXCSR sRXDONE? 
8320 007640 100001 BPL +4 
8321 007642 104004 ERROR 4 sRXDONE SHOULD NOT ASSERT 
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8322 007644 005367 171254 DEC OUNT 
8 i 00765 01355 BNE 
8324 00765 O12 00 009026 MOV #26,R0 sEXPECTED 
83 § 007656 017701 172034 MOV @RXDBUF ,R1 S ACTUAL 
8 26 007662 020001 CMP RO,R1 
8327 007664 001401 BEQ +8 
8328 007666 104002 ERROR 2 sNOTE THAT OVERRUN SHOULD NOT OCCUR, ALSO 
8329 ‘SECOND & 32D SYNC CHARACTER CAME FROM 
8330 °SYNC HOLDING REGISTER 
8331 007670 012767 000003 171226 MOV #3, COUNT “# OF TIMES 
83 2 007676 112777 000025 172026 MOVB #25, aTXDBUF SLOAD ANY CHAR....HOWEVER... 
833 ZONE MORE SYNC CHAR WILL BE SENT BEFORE 
8334 [THE ''25" CHAR IS SENT (THE DNA BIT IS 
8335 SALREADY UP) 
8357 007704 012767 000010 171210 4$: MOV #8. ,SHIFT 3# OF SHIFTS 
8339 00771 3$: 
(1) 007712 052777 020000 172006 BIS #CLK,@TXCSR :POKE CLK UP 
(1) 007720 042777 020000 172000 BIC #CLK,aTXCSR SPOKE CLK DOWN 
8340 007726 005367 171170 DEC SHIFT 
8341 007732 001367 BNE 
8342 007734 005367 171164 DEC COUNT 
8343 007740 001361 BNE 4 
8344 007742 105777 171744 TSTB  @RXCSR ;RXDONE = 1 ? 
8345 007746 100401 BMI +4 
8346 007750 104004 ERROR & sRXDONE SHOULD BE SET 
8347 007752 012700 140026 MOV WRXERR!OVRRUN!26,RO ;EXPECTED 
8348 007756 017701 171734 MOV @RXDBUF ,R1 S ACTUAL 
8349 007762 020001 CMP 0,R1 
8350 007764 001401 BEQ +h 
8351 007766 104002 ERROR 2 sNOTE THAT OVRRUN SHOULD OCCUR, 
8352 SALSO SECOND SYNC CHARACTER CAME 
8353 [FROM SYNC HOLDING REGISTER 
8354 :SUMMARY: THE OVRRUN STOPPED 
8355 ‘THE AUTOMATIC RESETTING OF 
8356 SRXDONE & ERROR FLAGS..... CHECK THIS 
8358 s;THIS TEST VERIFYS THAT EITHER SEQUENCE OF 
8359 ?:LOADING TXDBUF AND SETTING SEND 
8360 ?:DOES CAUSE TRANSMISSION 
8361 s:MODE: SYNC EXT 
8362 SILENGTH: EIGHT 
8363 . 
8364 007770 $istTNo 
(1) 007770 NEWTST 
(2) 000000 SNWTST=0 
(2) 001 IF B <> 
(2) 007770 SSNEWTEST \STN, <>, SCOPE 
(3) IRP  — ASCII, <> 
(3) “IF €Q S$NWIST 
(3) eNLIST 
(3) $NWTST= 
(3) .SBITL 121 ASCI 
(3) "LIST 
(3) STARS 


“" 7 
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CNDUUA.M11 -0CT- NITIALIZE THE COMMON TAGS SEQ 0090 
(3) s*TEST 21 ASCI 
(3) IF 
(3) ASCI 
(3) -ENDC 
(3) .ENDM 
(3) 007770 STARS 
(4) 002 IF B 
(4) 3 gs RRARRREHAEHH EEE HHT REKEH HTT RATHEREEKEAAEHEReReReeeteeeneetener 
(4) IFF 
(4) »NLIST 
(4) sREPT 
(4) LIST 
(4) STARA AAARAERAEEAAAREEAAEEEEHHEHEREHATEETAEEHREEREREREREReeReeee 
(4) »NLIST 
(4) -ENDR 
(4) LIST 
(4) 001 .ENDC 
3) 007770 000004 TST21: SCOPE 
(3) 000022 STN=$TN+1 
(2) IFF 
(2) SSNEWTEST \$STN,<>,<> 
(2) 000 -ENDC 
(2) 001 -1F NE 40008$SwR 
(2) 002 IF NB 
(2) 003 IF LE <1> 
(2) ae MOV #1, STIMES 3300 1 ITERATION 
(2) MOV #,STIMES 3300 ITERATIONS 
(2) 002 -ENDC 
(2) 001 -ENDC 
(2) 002 .1F NB 
(2) MOV #,$LPADR 3:SET SCOPE LOOP ADDRESS 
(2) 001 -ENDC 
(2) 000 ~ENDC 
(2) 001 .IF NB 
(2) 002 IF DF $MAIL 
(2) . IRP TNM, <\$TN=1> 
(2) MOV #" TNM,STESTN 7:SET TEST NUMBER IN APT MAIL BOX 
(2) .ENDM 
(2) 001 -ENDC 
(2) 000 ~ENDC 
(1) 000000 eREPT 0 
q) eNLIST 
(1) eRADIX 10 
(1) LIST 
(1) . IRP $DN,<\$N> 
(1) NEWTST 
(1) : MOV #SDN,STSTNM ;SAVE THIS 
(1) ~ENDM 
(1) eNLIST 
(1) iw 
(1) 3. 11F NB ©, MOV #, RETURN SET UP THIS RETURN 
a) 11 NB i. MOV #, [COUNT :SET UP THIS ICOUNT 
( , <> 
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a 
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MOV #,NEXT ;GO TO THIS TEST WHEN THRU 


(1) “FF 
(1) “NLIST 
(1) “RADIX 10 
(1) SLIST 
(1) -IRP_ SDE, <\SE> 
(1) “IF DF TST*S$DE 
(1) : MOV #TST'SDE,NEXT ;G0 TO THIS TEST WHEN THRU 
(1) " ENDM 
(1) “NLIST 
(1) “RADIX 8 
(1) LIST 
(1) TIFF 
(1) ; MOV #.EOP,NEXT 360 TO THIS TEST WHEN THRU 
(1) “ ENDC 
(1) SENDC 
(1) >. 11F NB <>, MoV #,LOCK ;SET UP FOR SCOPE LOOP 
(1) “NLIST 
(1) "RADIX 10 
(1) $N=$N¢1 
(1) SE=SE+1 
(1) sRADIX 8 
(1) “LIST 
(1) *ENDR 
8365 
8366 007772 TSETUP MINT, SYNEXT,EIGHT,NOPAR, 26 
(1) 00777 SRESET 
(2) 007772 052777 000400 171726 BIS #MRESET,@TXCSR ;MASTER RESET 
(1) 010000 012777 020000 171714 MOV #SYNEXT.@PARCSR :SET THE MODE 
(1) 010006 SRESET 
(2) 010006 052777 000400 171712 BIS MMRESET,@TXCSR ;:MASTER RESET 
(1) ;SET MAINTENANCE MODE & SEND 
(1) :NOTE:BIT WINDOWBCLK ARE CLEARED (MTDATA=0) 
(1) 010014 012777 004020 171704 MOV #MINT! SEND, @TXCSR 
(1) ;SET MODE.# OF BITS,PARITY SENSE,& LOAD SYNC REG 
(1) 010022 012777 026026 171672 OV #SYNEXT'EIGHT !NOPAR! 26, a@PARCSR 
8367 010030 016703 171672 MOV XCSR, sSET UP FOR ERROR MESSAGE 
8368 010034 042777 000020 171064 BIC WSEND.@TXCSR §-:DROP SEND 
8369 010042 012767 000025 171430 MOV »StMP1 
8370 010050 112777 000025 171654 OV #25 aTXDBUF sLOAD CHARACTER 
8371 010056 052777 000020 171642 BIS WSEND,@TXCSR SET SEND 
8372 “GET INTO SYNCRONIZATION 
8373 010064 $POKE 
(1) 010064 052777 020000 171634 BIS #CLK,aTXCSR SPOKE CLK UP 
(1) 010072 042777 020000 171626 BIC #CLK aTXCSR SPOKE CLK DOWN 
8374 010100 012767 000010 171014 MOV #8. SHIFT :# OF SHIFTS 
8375 010106 005000 1$: CLR 
8376 010110 006067 171364 aOR $TMP1 
8377. 010114 103002 BCC 
8378 010116 052700 002000 BIS #B1TW,RO sEQUIV OF BIT WINDOW 
8380 010122 2$: 
(1) 010122 052777 020000 171576 BIS #CLK,aTXCSR ;POKE CLK UP 
(1) 010130 042777 020000 171570 BIC #CLK aTXCSR SPOKE CLK DOWN 


CNDUU=A MACY11 30(1046) 14-DEC-82 10:02 PAGE 62-78 
CNDUUA.M11 sae ts 13: Py INITIALIZE THE COMMON TAGS SEQ 0092 
8 81 101 17701 171564 MOV arxcse R1 ACTUAL 
82 01014 437 1 075777 BIC #0751 77,R1 [SAVE BiT WINDOW & DNA 
8383 01014 001 CMP R 
: 84 1015 1401 BEQ + 
385 010152 104003 ERROR 3 :BIT WINDOW pID NOT MATCH ACTUAL DATA BIT 
a *ALSO CHECK D 
387 010154 005367 170742 DEC SHIFT 
388 010160 001352 BNE i$ 
8389 
bi 
B39 sTHIS TEST VERIFYS THAT DROPPING OF SEND IN THE 
839 [MIDDLE OF TRANSMITTING A CHARACTER DOES INDEED 
8294 [FINISH TRANSMITTING THAT CHARACTER 
8395 tIMODE: SYNC EXT 
8396 SELENGTH: EIGHT 
8397 tt 
8398 
8399 010162 $TSTNO 
(1) 010162 NEWTST 
(2) 000000 SNWTST=0 
(2) 001 IF B <> 
(2) 010162 SSNEWTEST \STN, <>, SCOPE 
(3) .IRP ASC I, <> 
(3) “IF EQ SNWTST 
(3) NLIST 
(3) $NWTST=1 
(3) .SBITL 122 ASCI 
(3) “LIST 
(3) STARS 
(3) S*TEST 22 ASCI 
(3) * IFF 
(3) ASCI 
(3) ENDC 
(3) * ENDM 
(3) 010162 STARS 
(4) 002 IF 
(4) FRRAAAAAAAAAAA AEA AT AREA AAA E RARE AAA AA HAAR AAAARAARAREH AAA E KET ES 
(4) "iF 
(4) “NLIST 
(4) REPT 
(4) “LIST 
(4) s 2 SRAEAAAAAAAAARAAAAAAAAAEAAEAAEAAAAAAAAETAAAAARAAAARAAEARARAAEAERARAAAAEEE 
(4) eNLIST 
(4) ENDR 
(4) LIST 
(4) 001 ~ENDC 
(3) 010162 000004 1ST22: SCOPE 
(3) 000023 STN=$TN+1 
(2) WIFE 
(2) SSNEWTEST \STN,<>,<> 
(2) 000 .ENDC 
(2) 001 “IF NE 40008$SWR 
(2) 00 "IF NB 
(2) 00 IF LE <=1> 
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INITIALIZE THE COMMON TAGS 


iF MOV #1,STIMES 
MOV #,STIMES 
-ENDC 
eENDC 
IF NB 
MOV #,$SLPADR 
-ENDC 
~ENDC 
IF NB 
IF DF SMAIL 
~ IRP TNM,<\$TN=1> 
MOV #° TNM,STESTN 
~ENDM 
-ENDC 
-ENDC 
REPT 0 
eNLIST 
sRADIX 10 
LIST 
- IRP $DN,<\$N> 
NEWTST 
$ MOV #S0N,S$TSTNM 
~ENDM 
eNLIST 
»RADIX 
LIST 
3-1IF NB <>, MOV 
3.11F NB <>, MOV 
3.1F NB <> 
3 MOV #, NEXT 
oIFF 
eNLIST 
eRADIX 10 
LIST 
. IRF SDE .<\SE> 
IF DF TST*SDE 
; MOV #TST'SDE,NEXT 
END 
eNLIST 
RADIX 8 
LIST 
oIFF 
3 MOV #.EOP,NEXT 
-ENDC 
-ENDC 
3-11F NB <>, MOV 
eNLIST 
RADIX 10 
$N=$N+1 
$E=$E+1 
RADIX 8 
LIST 
ENDR 


SEQ 0093 
3:D0 1 ITERATION 
3;D0 ITERATIONS 


:3SET SCOPE LOOP ADDRESS 


3;SET TEST NUMBER IN APT MAIL BOX 


:SAVE THIS 
#, RETURN :SET UP THIS RETURN 
#, 1 COUNT 3SET UP THIS ICOUNT 


:GO TO THIS TEST WHEN THRU 


3GO0 TO THIS TEST WHEN THRU 


:GO TO THIS TEST WHEN THRU 


#,LOCK ;SET UP FOR SCOPE LOOP 


TSETUP MINT,SYNEXT, EIGHT ,NOPAR ,26 
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CNDUUA.M11 -0CT- NITIALIZE THE COMMON TAGS SEQ 0094 
(1) 010164 SRESET 
(3) 910164 052777 000400 171534 BIS WMRESET,@TXCSR ;=MASTER RESET 
1) 019172 012777 020000 171522 wows MOV WSYNEXT,@PARCSR :SET THE MODE 
(2) 010200 052777 000400 171520 BIS WMRESET,@TXCSR ;MASTER RESET 
(1) :SET MAINTENANCE MODE & SEND 
(1) sNOTE:BIT WINDOWECLK ARE CLEARED (MTDATA=0) 
(i) 010206 012777 004020 171512 MOV #MINT!SEND,aTXCSR 
(1) sSET MODE.# OF BITS,PARITY SENSE,& LOAD SYNC REG 
(1) 010214 012777 0 6026 171500 MOV #SYNEXT ‘EIGHT !NOPAR! 26,a@PARCSR , 
B402 010222 016703 171500 MOV XCSR,R sSETUP FOR ERROR MESSAGE 
8403 pide ¢e 112777 000252 171476 MOVB oseg -gtapeur sLOAD DATA CHAR, 
8404 010234 012767 000252 171236 MOV #252,$TMP1 ‘SHIFTED CHAR 
8405 010242 012767 000010 170652 MOV . SHIFT °# OF SHIFTS 
8406 :GEf INTO SYNCRONIZATION 
8407 010250 SPOKE 
(1) 010250 052777 020000 171450 BIS #CLK,aTXCSR :POKE CLK UP 
aft 010256 042777 020000 171442 BIC #CLK,aTXCSR SPOKE CLK DOWN 
8409 010264 005000 1$: CLR RO 
B410 010266 006067 171206 ROR $TMP1 ZFORCE CARRY 
8411 010272 103002 BCC 
8412 010274 052700 002000 BIS #BITwW,RO sEQUIV OF BIT WINDOW 
8414 010300 28: 
(1) 010300 052777 020000 171420 B'S #CLK,aTXCSR sPOKE CLK uP 
(1) 010306 042777 020000 171412 BIC #CLK,aTXCSR :POKE CLK DOWN 
8415 010314 017701 171406 rOV aTXCSR,R1 ‘ACTUAL 
8416 010320 042701 075777 '3IC #075777,R1 ‘SAVE ONLY BIT WINDOW & DNA 
8417 010324 020001 “MP RO,R1 
8418 010326 001401 BEQ Ry; 
8419 010330 104003 EFROR 3 :B1T WINDOW DID NOT MATCH 
8420 sACTUAL DATA BIT 
8421 010332 005367 170564 DEC SHIFT 
8422 010336 022767 000003 170556 CMP #>,SHIFT 
8423 010344 001003 BNE 
8424 010346 042777 000020 171352 BIC WSEND,@TXCSR DROP SEND 
8425 010354 005767 170542 3$: TST SHIFT 
8426 010360 001341 BNE 1$ sDO0 IT AGAIN? 
5059 
B80 s; THIS TEST VERIFYS THAT RXDONE ASSERTS WHEN STRIP SYNC IS SET 
8431 t:MODE: SYNC INTERNAL 
8432 ::LENGTH: EIGHT 
8433 s 
8434 010362 $isTNo 
(1) 010362 NEWTST 
(2) 000000 SNWIST=0 
(2) 001 -1F B <> 
(2) 010362 SSNEWTEST \STN, <>, SCOPE 
(3) .IRP  —s_ ASC I, <> 
(3) IF €Q $NWIST 
(3) NLIST 
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CNDUUA.M11 -0CT- INITIALIZE THE COMMON TAGS SEQ 0095 
(3) SNWTST=1 
(3) -SBTTL "123 ASCI 
(3) LIST 
(3) STARS 
(3) s*TEST 23 ASCI 
(3) oIFF 
(3) ASCI 
3) -ENDC 
(3) ~ENDM 
(3) 010362 STARS 
(4) 002 iF 
(4) 3 PARR RRAALESASEAALLALLERLELE LER EEE ER EEE RARER RR RRR RARER A RRR RRARA SS A 
(4) J IFF 
(4) eNLIST 
(4) eREPT 
(4) LIST 
(4) FERRARA AAAARAAAEERERAE HATA TE TERAEAAAREREAAERAARAAEHEEREAAEEER EEE 
(4) eNLIST 
(4) -ENDR 
(4) LIST 
(4) 001 ~ENDC 
tH 010362 000004 TST23: SCOPE 
(3) 000024 STN=S$TN+1 
(2) oi1FF 
(2) SSNEWTEST \STN,<>,<> 
(2) 000 -ENDC 
(2) 001 -1F NE 40008SSWR 
(2) 002 -1F NB 
(2) 003 IF LE <=1> 
iH = MOV #1,STIMES 7:D0 1 ITERATION 
(2) MOV #,STIMES 3:00 ITERATIONS 
(2) 002 -ENDC 
(2) 001 eENDC 
(2) 002 IF NB 
(2) MOV #, SLPADR 3:SET SCOPE LOOP ADDRESS 
(2) 001 -ENDC 
(2) 000 eENDC 
(2) 001 IF NB 
(2) 002 ~1F DF SMAIL 
(2) - IRP TNM,<\$TN- 
(2) MOV a TKN, STESTN 3:SET TEST NUMBER IN APT MAIL BOX 
(s} -ENDM 
(2) 001 eENDC 
(2) 000 -ENDC 
(1) 000000 REPT 0 
(1) eNLIST 
(1) RADIX 10 
(1) eLIST 
(1) - IRP $DN,<\$N> 
(1) NEWTST 
(1) MOV #$DN,STSTNM sSAVE THIS 
(1) -ENDM 
(1) eNLIST 
(1) RADIX 8 
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CNDUUA.M11 29-0CT-82 1 INITIALIZE THE COMMON TAGS SEQ 0096 
(1) LIST 
(1) :.11F NB ©, MOV #, RETURN :SET UP THIS RETURN 
(1) >. 11F NB 2: MOV #, 1COUNT [SET UP THIS ICOUNT 
(1) 3.1F NB <> 
(1) ae MOV #,NEXT ;GO TO THIS TEST WHEN THRU 
(1) eNLIST 
(1) eRADIX 10 
(1) LIST 
(1) -IRP SDE ,<\SE> 
(1) cIF OF TS 
(1) : MOV #TST'SDE,NEXT ;:G0 TO THIS TEST WHEN THRU 
(1) ~ENDM 
(1) -NLIST 
(1) -RADIX 8 
(1) LIST 
(1) wIFF 
(1) : MOV #.EOP,NEXT :G0 TO THIS TEST WHEN THRU 
(1) “ENDC 
(1) eENDC 
(1) 3 JIF NB <>, MOV #,LOCK ;SET UP FOR SCOPE LOOP 
(1) eNLIST 
(1) «RADIX 1 
(1) SN=$Ne1 
(1) $E=S$E+1 
(1) ~RADIX 
(1) LIST 
(1) eENDR 
8435 010364 RSETUP MINT,SYNINT,EIGHT,NOPAR, 26 
(1) 010364 SRESET 
(2) 010364 052777 000490 171334 BIS WMRESET,@TXCSR ;MASTER RESET 
(1) 010372 012777 030000 171322 MOV #SYNINT.@PARCSR :SET THE MODE 
(1) 010400 SRESET 
(2) 010400 052777 000400 171320 BIS #MRESET,@TXCSR ;=MASTER RESET 
(1) sSET MAINT DATA, CLK,BREAK,@MAINTENANCE MODE 
(1) 010406 012777 064001 171312 MOV #@MTDATA'CLK (MINT ‘BREAK, a@TXCSR 
(1) sSET MODE ,# OF BITS, PARITY SENSE,&LOAD SYNC REG 
mH 010414 012777 036026 171300 MOV #SYNINT!EIGHT !NOPAR! 26, aPARCSR 
8437 010422 052777 000420 171262 BIS WSYNSCH!STPSYN,@RXCSR iSEr SYNC SEARCH & 
8439 :POKE CLK TO GET RECEIVER INTO SYNCRONIZATION... 
8440 010430 042777 020000 171270 BIC #CLK,aTXCSR SPOKE CLK 
B441 010436 052777 020000 171262 BIS #CLk, oTAESR : 
8442 010444 SPOKER 
(1) sPOKE CLK TO GET LOGIC INTO SYNCRONIZATION 
(1) 010444 042777 020000 171254 BIC #CLK,aTXCSR POKE CLK DOWN 
(1) 010452 052777 920000 171246 BIS #Clk. *aTXCSR i POKE ae UP 
8443 010460 016703 171232 mov RXDBUF RS :FOR ERROR UME S SSAGE 
8444 010464 012767 000002 170432 UNT :# OF TIMES OF SYNC CHARS. 
8445 moeST 10. "See NOW MANY SYNC CHARS NEEDED 
8446 010472 105767 170450 TSTB CNO 
B447 010476 10040¢ BMI tt WILL IT BE ONE OR TwO ? 
8448 010500 005367 170420 DEC COUNT {MAKE IT ONE LESS 
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8449 010504 012767 000010 170410 3$: MOV #8. SHIFT :MOF SHIFTS 
8450 010532 12767 Mites 138388 MOV n96, grap :SYNC CHAR 
8451 010520 004767 006446 JSR 
8452 010524 005367 170374 DEC pC RPOK “is IT THE LAST SYNC CHAR ? 
8453 010530 001365 BNE AGAIN AND SHIFT IN ANOTHER SYNC CHAR 
8454 010532 032777 004000 171152 BIT #RECACT, aRKceR sRECACT=1? 
8455 010540 001001 BNE 
8456 010542 104004 ERROR sRECACT SHOULD BE ASSERTED 
8457 010544 105777 171142 TSTB SRXCSR 7 RXDONE=0? 
8458 010530 100001 BPL +4 
8459 010552 104004 ERROR 4 *RXDONE SHOULD NOT BE ASSERTED 
8460 910554 012767 000010 170340 MOV “8 »SHIFT sWOF SHIFT 
8461 10562 012767 000025 170710 MOV #25°$TMP1 [ANY CHARACTER 
B462 010570 004767 006376 JSR »RPOKE 
8463 010574 105777 171112 TSTB  aRXCSR :RXDONE=1? 
8464 010600 100401 BMI +4 
8465 010602 104004 ERROR 4 :RXDONE SHOULD NOW BE ASSERTED 
8466 010604 012700 000025 MOV #25,R0 s EXPECTED 
8467 010610 017701 171102 MOV @RXDBUF ,R1 SACTUA 
8468 010614 020001 CMP RO,R1 
8469 010616 001401 BEQ : 
8470 019620 104002 ERROR 2 CHARACTERS SHOULD BE MATCHED 
8472 
8473 
8474 s;THIS TEST VERIFYS THAT BY DROPPING SYNSCH 
8475 t:IN THE MIDDLE OF A CHARACTER, SYNC CHARACTER SEQUENCE 
8476 t:1S NEEDED BEFORE RECACT , RXDONE ASSERT 
7 33 NOTE: SINCE RECACT IS DEPENDENT ON MATCH DETECT, 
8478 3 AND IF SYNSCH IS DROPPED IN THE MI 
8479 YNC CHARACTER AND THEN RAISED AGAIN yRXDONE SHOULD 
8480 :INOT ASSERT UNTIL NEW SYNC CHARACTER SEQUENCE........HOWEVER 
8481 ZONE “'PAD'' CHARACTER MUST PRECEED THIS JUGGLING OF SEARCH SYNC (SYNSCH) 
8482 + IMODE: SYNC INTERNAL (SYNINT) 
8483 S:LENGTH: EIGHT 
8484 33 
8485 
8486 010622 $TSTNO 
(1) 010622 NEWTST 
(2) 000000 SNWIST=0 
(2) 001 IF B <> 
(2) 010622 SSNEWTEST \STN, <>, SCOPE 
(3) .IRP —s-_ ASC, <> 
(3) IF EQ $NWIST 
(3) “NLIST 
(3) $NWIST=1 
(3) -SBITL 124 ASCI 
(3) LIST 
(3) S 
(3) TeTEST 246 ASCI 
(3) ‘ 
(3) ASC] 
(3) ~ENDC 
(3) ~ENDM 
(3) 010622 STARS 
(4) 002 IF B 


BS 
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(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 001 
(3 010622 000004 
(3) 000925 
(2) 
(2) 
(2) 000 
(2) 001 
(2) 002 
(2) 003 
(2) 
(2) 
(2) 
(2) 002 
(2) 001 
(2) 002 
(2) 
(2) 001 
(2) 000 
(2) 001 
(2) 002 
(2) 
(2) 
(2) 
(2) 001 
(2) 000 
(1) 000000 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 


10:02 PAGE 62-84 


INITIALIZE THE COMMON TAGS 


p_eteeteneneeereeterereneteeterteeaeeeeeeKeKeeeneneereeeAeeetenee 


seeeanearereanrereererereererereeentenanenenararenneneaeaneneese 


¢ SSNEWTEST 
NE 40008$SwR 


\$STN,<>,<> 


> 
MOV #1, STIMES 3:00 1 ITERATION 
MOV #,STIMES 3;D0 ITERATIONS 


MOV #,SLPADR 3;SET SCOPE LOOP ADDRESS 


SMAIL 
P TNM,<\$TN=1> 
MOV #° TNM,STESTN 7:SET TEST NUMBER IN APT MAIL BOX 


- IRP $DN,<\$N> 
WIST 


NE 

; MOV #SDN,$STSTNM sSAVE THIS 

" ENDM 

eNLIST 

vi | ake 

>. 11F NB ©, MOV #, RETURN :SET UP THIS RETURN 
ie1IF NB . MOV #: ICOUNT ?SET UP THIS [COUNT 
© 

ase MOV #.NEXT ;GO TO THIS TEST WHEN THRU 

"NLIST 

"RADIX 10 

“LIST 

TIRP_ SDE, <\SE> 

"IF DF TST*$DE 


SEQ 0098 
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CNDUUA.M11 -0CT- INITIALIZE THE COMMON TAGS SEQ 0099 
(1) : MOV #TST'SDE,NEXT G0 TO THIS TEST WHEN THRU 
(1) ~ENDM 
(1) «NLIS 
(1) eRADIX 8 
(1) LIST 
(1) wIFF 
(1) : MOV #.EOP,NEXT :GO TO THIS TEST WHEN THRU 
(1) “ENDC 
(1) SENDC 
qq) :.11F NB ©, MOV #,LOCK ;SET UP FOR SCOPE iCOP 
(1) eNLIST 
(1) »RADIX 10 
(1) $N=$N+1 
(1) $E=$E+1 
(1) eRADIX 8 
(1) «LIST 
(1) -ENDR 

8487 
8488 010624 f ETUP MINT,SYNINT,EIGHT,NOPAR, 26 
(1) 010624 eRESET 
(2) 010624 052777 000400 171074 BIS WMRESET,@TXCSR ;MASTER RESET 
(1) 010632 012777 030000 171062 MOV #SYNINT,@PARCSR :SET THE MODE 
(1) 010640 SRESET 
(2) 010640 052777 000400 171060 BIS #MRESET,@TXCSR ;MASTER RESET 
(1) 3SET MAINT DATA,CLK,BREAK,&MAINTENANCE MODE 
at 010646 012777 064001 171052 MOV #MTDATA'CLK'MINT ‘BREAK, aTXCSR 
(1) sSET MODE .# OF BITS,PARITY SENSE,&LOAD SYNC REG 
aad 010654 012777 036026 171040 MOV #SYNINT EIGHT 'NOPAR! 26, @PARCSR 
8490 010662 $SYNCR 
(1) 010662 052777 000020 171022 BIS WSYNSCH,@RXCSR ;SET SYNC SEARCH 
(1) sPOKE cur TO GET RECEIVER INTO ig ala 
(1) 010670 042777 020000 171030 BIC K,aTXCSR sPOKE CLK DOWN 
(1) 010676 052777 020000 171022 BIS ottK. *aTxcsR SPOKE CLK UP 
8491 010704 SPOKER 
(1) POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
(1) 010704 042777 020000 171014 BIC #CLK, atx POKE CLK DOWN 
(1) 010712 052777 020000 171006 BIS wcLK, exer POKE cL UP 
8492 010720 012767 000002 170176 MOV #2, COUNT :# OF TIMES 
8493 010726 016703 170764 MOV RXDBUF ,R3 FOR ERROR MESSAGE 
8494 010732 012767 000010 170162 1%: MOV #8.,SHIFT # OF SHIFTS 
8495 910740 012767 900026 170532 MOV #26,$1MP1 Sy NC CHAR, 
8496 010746 004767 006220 JSR PC, RPOKE 
8497 010752 005367 170146 DEC COU 
8498 010756 001403 BEQ 
8499 sTEST TO SEE HOW MANY SYNC CHARACTERS NEEDED 
8500 010760 105767 170162 STB. = SYNCNO 
8501 010764 100762 BMI 
$208 010766 032777 004000 170716 2%: BIT WRECACT,@RXCSR ;RECACT=1? 
8504 010774 001001 BNE +4 
8505 010776 104004 ERROR 4 sRECACT SHOULD BE SET 
8506 011000 105777 170706 TSTB  @RXCSR ;RXDONE = 0? 
8507 011004 100001 BPL +4 
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87 CNDUUA.M11 INITIALIZE THE COMMON TAGS SEQ 0100 
8508 011006 104004 ERROR j®x00 NE SHOULD = 0 
8509 ; THE FOLLOWING ALLOWS THE ECEIVER “CHIP TO RECOGNIZE THE DROPPING OF SYNSCH 
8510 . BASICALLY IT SIMULATES THE 'PAD'’ CHARACTER REQUIREMENT AT THE END 
8511 ‘OF DATA TRANSFER. 
B51¢ [ONE PAD’ CHARACTER 1S REQUIRED TO FLUSH OUT SYNC CHARACTER 
851 : AND Paty HAVE TO DROP SYNSCH ON THE NEXT OR FOLLO SING. CHARACTER 
8514 [FOR A CLEAN'’ RESTART 
8515 011010 012767 000010 179104 MOV #8. SHIFT 3@ OF SHIFTS 
8516 011016 012767 000025 170454 MOV =. #25, STMP1 ;'PAD'’ CHARACTER 
8517 011024 904767 006142 JSR PC ,RPOKE ‘SHIFT IN ‘PAD’ CHARACTER 
8518 011030 105777 170656 TSTB  @RXCSR ;RXDONE = 1 ? 
8519 011034 100401 BMI! +4 
8520 011036 104904 ERROR & *RXDONE SHOULD = 1 
8521 011040 017701 170652 MOV @RXDBUF ,R1 “STORE ACTUAL & CLEAR RXDONE 
852¢ 011044 012700 000025 MOV #25,RO ;EXPECTE 
852 011050 020001 CMP RO,R1 : COMPARE EXPECTED DATA VS ACTUAL DATA 
8524 011052 001401 BEG +8 
8525 011054 104002 ERR 2 sDATA SHOULD COMPARE WITHOUT ERROR FLAGS 
8526 ; THE FOL OWING IS THE SYNC CHARACTER AFTER THE ‘PAD’ CHARACTER 
8527 SIN WHICH SEARCH SYNC (SYNSCH) 1s JUGGLED TO CREATE AN ABORT SITUATION 
8528 SAT THE a OF A B git TRANSFER S ym 
8529 011056 012767 000004 170036 FT F SHIFTS 
8530 011064 012767 000026 170406 MOV 42, ae ‘Syne CHAR. 
8531 011072 004767 006074 JSR PC, RPOKE 
8532 011076 032777 004000 170606 BIT WRECACT, ARXCSR ;RECACT=1? 
8533 011104 001001 BNE 
8534 011106 104004 ERROR we ;RECACT SHOULD STILL BE SET 
8535 011110 105777 170576 TSTB  @RXCSR ;RXDONE = 0 ? 
8536 011114 100001 BPL +4 
8537 011116 104004 ERROR 4 sRXDONE SHOULD = :. “eo PREVIOUS READING OF RXDBUF 
8538 011120 042777 000020 170564 BIC WSYNSCH,ARXCSR ;DROP SEARCH SYNC 
8539 011126 032777 004000 170556 BIT #RECACT ARXCSR SRECACT=0? 
8540 011134 001401 BEQ i’ 
8541 011136 104004 ERROR sRECACT SHOULD NOT BE SET 
8542 sNOW SHIFT TWO BITs TO ALLOW SEARCH SYNC’ =0 TO T 
8543 TEFFECT IN THE LOGIC(THIS ALLOWS THE RECEIVER CHIP TO SEE 
8544 [THE DROPPING OF SEARCH SYNC) 
8545 011140 012767 000002 167754 MOV #2, SHIFT 34 OF SHIFTS 
8546 011146 004767 006020 JSR PC .RPOKE 
8547 011152 052777 000020 170532 BIS #SYNSCH,ARXCSR ;SET SEARCH SYNC 
8548 011160 032777 004000 170524 BIT #RECACT aRXCSR 
8549 011166 001401 +4 
8550 011170 104004 ERROR & ZRECACT =0 ? 
8551 011172 105777 170514 TSTB  @RXCSR :RXDONE = 0 ? 
895¢ 011176 100001 BPL i 
6553 011200 104004 ERROR RXDONE = 0 ? 
8554 011202 012767 000002 167712 MOV a2. SHIT’ 34 OF SHIFTS TO FINISH UP THE SYNC CHARACTER 
8555 011210 004767 005756 JSR POKE 
8556 011214 032777 004000 170470 BIT PRECACT @RXCSR ;RECACT=0? 
8557 011222 001401 EQ +4 
8558 011224 104004 ERROR 4 -RECACT SHOULD NOT BE SET 
8559 011226 105777 170460 TSTB a@RXCSR :RXDONE=0? 
8560 011232 100001 PL +4 
8561 011234 104004 ERROR 4 :RXDONE SHOULD NOT BE ASSERTED 
856¢ 011236 012700 000025 MOV #25,R0 EX PEC cre 6 
8563 011242 017701 170450 MOV @RXOBUF RI ACT 
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8564 011246 020001 CMP RO,R1 ;COMPARE EXPECTED VS ACTUAL 
8565 O113s 97000" BEQ + 
8566 011252 104002 ERROR 5° = CHARA TERS, SHOULD BE MATCHED.......... 
8567 SREMBEMBER THAT THE ** 25 ‘ FROZE W WHEN SYNSCH WAS DROPPED 
8568 “THEREFORE ....25 WILL BE READ NOT 
8569 THE FOLLOWING VERIFYS THAT THE RE SYNCRONIZATION COMES UP “'CLEAN’ 
8570 011254 012767 000002 167642 #2, COUNT F TIMES OF SYNC CHARS. 
897 CEST TO Ste HOW MANY SYNC CHARS NEEDED 
8573 011262 105767 167660 tSTB gyn CNO HOW MANY SYNCS ARE a STRAPPED FOR ? 
8574 011266 10040 BMI 4 WILL IT BE ONE OR TwO ? 
8575 011270 00336 167630 DEC COUNT + IT AS ONLY ONE NEEDED 
8576 011274 012767 000010 167620 3S: MOV #8. SHIFT :MOF SHIFTS 
8577 011302 012767 000026 170170 MOV #26,$TMP1 [SYNC CHAR 
8578 011310 004767 005656 JSR PC, RPOKE 
8579 011314 005367 167604 DEC COUNT 1s IT THE LAST SYNC CHAR 
8580 011320 001365 BNE AGAIN AND SHIFT IN ANOTHER SYNC CHAR 
8581 011322 032777 004000 170362 BIT WRECACT, saucer sRECACT=1? 
8582 011330 001001 BNE .+ 
8583 011332 104004 ERROR 4 sRECACT SHOULD BE ASSERTED 
8584 011334 105777 170352 TSTB = ARXCSR sRXDONE=0? 
8585 011340 100001 BPL +4 
8586 011342 104004 ERROR 4 sRXDONE SHOULD NOT BE ASSERTED 
8587 011344 012767 000010 167550 MOV #8.,SHIFT sMOF SHIFTS 
8588 011352 012767 000025 170120 MOV #25,$TMP1 SANY CHARACTER 
8589 011360 004767 005606 JSR PC ,RPOKE 
8590 011364 105777 170322 TSTB = ARXCSR :RXDONE=1? 
8591 011370 100401 BM] 06 
8592 011372 104004 ERROR 4 :RXDONE SHOULD NOW BE ASSERTED 
8593 011374 012700 000025 MOV #25,R0 SEXPECTED 
8594 011400 017701 170312 MOV @RXOBUF ,R1 ‘ACTUAL 
8595 011404 020001 CMP RO,R1 
8596 011406 001401 BEQ .+ 
8997 011410 104002 ERROR 2 ZCHARACTERS SHOULD BE MATCHED 
8599 
8600 
8601 s:THIS TEST VERIFYS THAT HDX MODE DISQUALIFIES THE 
8602 s:RECEIVER WHEN SEND IS ASSERTED 
603 s:MODE: SYNC EXT 
8604 sZzLENGTH: EIGH 
8605 t:NOTE: THIS TEST WORKS ONLY IN MAINT. EXTERNAL MODE 
8606 ** THIS TEST USES BOTH RECEIVER & TRANSMITTER LOGIC 
8607 911412 $TSTNO 
(1) 011412 NEWTST 
(2) 000000 $NWTST=0 
(2) 001 IF B <> 
(2) 011412 SSNEWTEST \STN, <>, SCOPE 
(3) .IRP — ASC, <> 
(3) “IF €Q SNWIST 
(3) sNLIST 
(3) $NWTST=1 
(3) .SBITL 125 ASCI 
(3) LIST 
(3) STARS 
(3) S*TEST 25 ASCI 
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~ 


ASCI 


011412 STARS 
002 IF 


011412 000004 t 05: SCOPE 
000026 $ 
SSNEWTEST \$TN,<>,<> 

E 40008$SwR 


aa 


> 
MOV #1, STIMES 33:D0 1 ITERATION 
#,$TIMES 3;D0 ITERATIONS 


MOV #,SLPADR 33SET SCOPE LOOP ADDRESS 


SMAIL 
- IRP TNM,<\STN=1> 
MOV #' TNM,STESTN 3;SET TEST NUMBER IN APT MAIL BOX 


001 -ENDC 
000 
000000 -REPT 0 
oR 4 i 10 
- IRP $DN,<\$N> 
MOV #SON,STSTNM sSAVE THIS 


NB <>, MOV #, RETURN 3SET UP 
NB <>, MOV #, 1COUNT ;SET UP 


NB <> 
3 MOV #,NEXT ;GO TO THIS TEST WHEN THRU 


i i A ttt ttt ttt 
aL 


ee. St ttt ttt letatel, tetelaletetatetetelsiatatateteteateteialalatialelalal.lalalatealaleaadeaieaeaan 
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—_ 
~ 


ee ii De ee ee eee ee) 


CRA R RRR ARR RRR RRR RRR RRR 
SOO ww ww ww i sw eww 


8608 011414 
8609 011420 
8610 011422 
8611 011426 

(1) 011426 

(2) 011426 

(1) 011434 

(1) 011442 

(2) 011442 

(1) 

(1) 

(1) 

(1) 011450 

(1) 

(1) 

(1) 011456 
8612 011464 
8615 011472 
8614 
8615 011500 

“> 911500 

(1) 011506 

(1) 011512 

(1) 011514 

(1) 

(1) 011516 

(1) 

(1) 011526 

(1) 011530 

HH 011532 
8616 01153 


yespec 


001376 
042777 
016702 
005302 
001376 


012767 


167533 
170270 
000400 
020000 
000400 


020000 
167406 


020000 
167370 


000010 
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170272 
170260 


170256 


170202 


167360 


INITIALIZE THE COMMON TAGS SEQ 0103 
T 
x 10 
- IRP SDE ,<\$E> 
T 


MOV MTST'SDE,NEXT  ;GO TO THIS TEST WHEN THRU 


ENDM 
NLIST 
RADIX 
433" 
wis MOV #. EOP NEXT :G0 TO THIS TEST WHEN THRU 
SENDC 
>. 11F NB ©, MOV #,LOCK ;SET UP FOR SCOPE LOOP 
“NLIST 
“RADIX 10 
SN=$N¢1 
SE=$E+1 
sRADIX 8 
LIST 
ENDR 
TSTB = JMRBY 
BPL is 3GET OUT OF THIS TEST IF ‘NO’ 
mov XDBUF ,R3 “FOR ERROR MESSAGE 
TSETUP MEXT, SYNEXT? EIGHT ,.NOPAR, 26 
BIS WMRESET,@TXCSR ;MASTER RESET 
cee MOV WSYNEXT.@PARCSR :SET THE MODE 


BIS #MRESET ,ATXCSR 


SET MAINTENANCE MODE & SEND 
sNOTE:BIT WINDOWS CLK ARE CLEARED (MTDATA=0) 
Mov #MEXT!SEND,@TXCSR 


zSET MODE.# OF BITS. PARITY SENSE,® LOAD SYNC REG 
MOV YNEX TEIGHT !NOPAR! 26, @PARCSR 

BIS OR YNECU. ARXCSR ;SET SEARCH SYNC 

OVB  #25,aTXOBUF “ANY CHARACTER 

MOORE CLK FOR SYNCRONIZATION 


PUSSYFOOT 
BIS #CLK,aTXCSR :POKE CLK UP 
sWAIT FOR CABL & DRIVER * DELAYS 
MOV HOLD,R2 ;WAIT THIS AMT 
R2 SWAIT 


MASTER RESET 


BIC °° #CLK,aTXCSR ;POKE CLK DOWN 
sWAIT FOR CABLE & DRIVER DELAYS 

MOV HOLD,R2 :WAIT THIS AMT 

DEC SWALT 

BNE 72 

i) ) 


MOV #8. ,SHIFT 34 OF SHIFTS 
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8617 011542 2$: 
(1) 011542 052777 020000 170156 BIS #CLK,@TXCSR :POKE CLK UP 
(1) -WAIT FOR Rote ke ul & DRIVER DELAYS 
(1) 011550 016702 167344 MOV AIT THIS AMT 
(1) 011554 00530 DEC WAIT 
(1) 011556 001376 BNE ae 
(1) 011560 042777 020000 170140 bic “#CLK,@TXCSR iPOKE CLK DOWN 
(1) sWAIT FOR CABLE & DRIVER DELAYS 
(1) 011566 016702 167326 MOV HOLD,R 23 WAIT THIS AMT 
(1) 011572 00530 DEC R2 WAIT 
(1) 011574 001376 BNE - 
8618 011576 005367 167320 bEC SHIFT ;# OF SHIFTS 
8619 011602 022767 000003 167312 CMP #3,SHIFT s1S IT TIME TO LOAD NEXT CHAR ? 
8620 011610 001003 BNE 
8621 011612 112777 900024 170112 MOVB #24,aTXDBUF ;LOAD NEXT CHAR. 
B62¢ 011620 005767 167276 3$: TST SHIFT 
8623 011624 001346 BNE 2$ 
8624 011626 105777 170060 TSTB @RXCSR ;RXDONE=1? 
8625 011632 100401 BMI +4 
8626 011634 104004 ERROR 4 sRXDONE SHOULD BE SET 
8627 011636 012700 000025 MOV #25,R0 SEXPECTED 
8628 011642 017701 170050 MOV @RKXOBUF RI SACTUAL 
8629 011646 020001 CMP RO,R1 
8630 011650 001401 BEOQ +4 
8631 011652 104002 ERROR 2 sCHARACTERS SHOULD COMPARE 
8632 011654 052777 000010 170044 BIS #HDKEN aTXCSR SSET HALF DUPLEX HDX 
8633 011662 012767 000010 167232 MOV #8., :# OF SHIFT 
8634 011670 4$: 
(1) 011670 052777 020090 170030 BIS #CLK,@TXCSR :POKE CLK UP 
(1) sWAIT FOR CABLE t DRIVER DELAYS 
(1) 011676 016702 167216 MOV HOLD,R2 :WAIT THIS AMT 
(1) 011702 005302 DEC R2 [WALT 
(1) 011706 001376 BNE 72 
(1) 011706 042777 020000 170012 BIC #CLK,@TXCSR sPOKE CLK DOWN 
(1) sWAIT FOR CABLE & DRIVER DELAYS 
(1) 011714 016702 167200 MOV HOLD,R2 ;WAIT THIS AMT 
(1) 011720 005302 DEC R2 [WAIT 
(1) 011722 001376 NE - 
8635 011724 005367 167172 DEC SHIFT 
8636 911730 001357 BNE 4 
8637 011732 105777 167754 TSTB  aRXCSR yRXDONE =0? 
8638 011736 100001 BPL +4 
8639 011740 104004 ERROR 4 RXDONE SHOULD NOT BE ASSERTED 
0 CHECK OUT HDX LOGIC 
1 011742 017701 167750 MOV @RXDBUF ,R1 SACTU 
: 011746 020001 CMP RO,R1 
011750 001401 BEQ % 
4 011752 104002 ERROR 2 CHARACTERS SHOULD COMPARE 


SNOTE THAT CHARATIER 25 WILL BE FROZEN 
[IN THE RXDBUF EVEN THOUGH tHARACTER 24 WAS 
[SENT TO THE RECEIVER 


333333333 
@anNow 
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011754 1$: 


wt 
ow 


wi 


ORCES A SPACE CONDITION 
$3 THIS: ER AND TRANSMITTER LOGIC 
3 SLENGTH: 
STSTNO 
000900 SNWIST= 
001 


B <> 
011754 SSNEWTEST \STN, <>, SCOPE 
.IRP =—s_ ASCII, <> 
IF EG SNWTST 


LIS 
SNWTST=1 
-SBTTL 126 ASCI 
LIST 


ssgerese 


STARS 
s*TEST 26 ASCI 
ASCI 
eENDC 
oENDM 
011754 STARS 
002 IF 


FLARAAAERARAAAAAAEAEAA EAE AEAAEE AREA A RARER EAAEHARAEARAAAAEHR ARES 
 1FF 

»NLIST 

»REPT 

LIST 

SL AAAaeeAaeeeeeeeeeKeeeeKeeeeeeeeHeHKAeARKeeeeeKtKeeKAeKKAeeeeneee 
ay 


BEER REESE RWWA 


011754 00000. $136: SCOPE 
000027 STN=STN¢1 
. SSNEWTEST \$TN,<>,<> 
: F NE 40008SSWR 
- MoV #1, STIMES ::D0 1 ITERATION 
MOV #,STIMES ::D0 ITERATIONS 


ee Ne ee SS SS SS SS YS YS ODNIOU EN 


~~ rm ce ee Te ee ee ee ti at i dd ee i i hh 


PROPOPEPEPOPONINININININNNWWw 


MOV #, SLPADR 3:SET SCOPE LOOP ADDRESS 


3 


CNDUU-A_MACY11 
CNDUUA.M11 


rororr 
~~ 


ee te ee ee een eae at La ee a ae Lat a aa a a lt le a el ee 
ee ee eh ee ee ke ee ek eS et ee ee ed et 8 ad od I API NY) 
eT a i i ii iit it i iti ttt iin 


3 


oe te ate ee he te et 
— ts ot 2 A) ot oe FY 


2 


anes State 


001 
000000 


052777 000400 
012777 020000 


052777 000400 


012777 004920 
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NITIALIZE THE COMMOK TAGS 
-ENDC 
~1F NB 
IF DF SMAIL 
. IRP TNM,<\$TN=- 
— MOV a Tae, STESTN 7:SET TEST NUMBER IN APT MAIL BOX 
eENDC 
~ENDC 
REPT 0 
NLIST 
;RADIX 10 
LIST 
. 1RP $DN,<\$N> 
NEWTS 
3 MOV #S0N,STSTNM ;SAVE THIS 
~ENDM 
-NLIST 
RADIX 
eLIST 
3-11F NB <>, MOV #, RETURN sSET UP THIS RETURN 
ooh >, MOV #, ICOUNT sSET UP THIS ICOUNT 
aT7 MOV #,NEXT ;GO TO THIS TEST WHEN THRU * 
eNLIST 
eRADIX 10 
LIST 
. IRP SDE ,<\SE> 
IF DF TST'SDE 
a MOV #TST'SDE,NEXT  ;GO0 TO THIS TEST WHEN THRU 
eNLIST 
RADIX 
atid 
3 MOV # EOP ,NEXT :G0 TO THIS TEST WHEN THRU 
a 
Fit <>, MOV #,LOCK ;SET UP FOR SCOPE LOOP 
RADIX 10 
SN=$N41 
S$E=$E+1 
eRADIX 8 
LIST 
-ENDR 
ee MINT, SYNEXT, EIGHT ,NOPAR,26 
167742 BIS WMRESET,@TXCSR ;MASTER RESET 
167730 cnesst MOV #SYNEXT,@PARCSR ;SET THE MODE 
167726 BIS @MRESET,@TXCSR ;MASTER RESET 


3 SET tama ge} MODE & SEND 
NOTE :BIT WINDOWS CLK ARE CLEARED (MITDATA=0) 


167720 #MINT! SEND, @TXCSR 


SEQ 0106 
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1 
C 


CNDUUA,M11 13:2 NITIALIZE THE COMMON TAGS SEQ 0107 
(1) 

(1) sSET MODE,# OF BITS,PARITY SENSE,&@ LOAD SYNC REG 
(1) 012006 012777 026026 167706 Mov #SYNEXT'EIGHT !NOPAR! 26, @PARCSR 
8661 012014 052777 000020 16767 § SCH grxcs sSET SEARCH SYNC 

8662 012022 016703 167670 MOV RXDBUF ,R [FOR ERROR MESSAGE 
8663 01 06 01276 90000¢ 167070 MOV N : 
8664 012034 112777 000025 167670 MOV #25, aTXDBUF “ANY CHARACTER 
8665 sPOKE CLK FOR SYNCRONIZATION 
8666 012042 SPOKE 
(1) 91204 052777 920000 167656 BIS #CLK,a@TXCSR :POKE CLK UP 
(1) 012050 042777 020000 167650 BIC #CLK -OTKCSR SPOKE CLK DOWN 
8667 012056 012700 000025 MOV a RO S EXPECTED 
B68 012062 012767 000010 167032 1S: MOV #8... SHIFT :# OF SHIFTS 
8670 012070 2$: 
(1) 012070 052777 020000 167630 BIS #CLK,aTXCSR sPOKE CLK UP 
(1) 012076 042777 020000 167622 BIC #CLK aTXCSR SPOKE CLK DOWN 
8671 012104 005367 167012 DEC SHIFT 
B67¢ 012110 022767 000003 167004 CMP #3, SHIFT 
8673 012116 001003 BNE 
8674 012120 112777 0000246 167604 MOVB #24,aTXDBUF sLOAD NEXT CHAR 
8675 012126 005767 166770 3$: TST SHIFT 
8676 gigi 2 001356 BNE 2$ 
8677 012134 105777 167552 TSTB @RXCSR sRXDONE=1? 
8678 012140 100401 BMI! +h 
8679 012142 104004 ERROR 4 
8680 012144 017701 167546 MOV @RXDBUF ,R1 s ACTUAL 
8681 012150 020001 CMP RO,R1 
8682 012152 001401 BEQ Ry 
868 012154 104003 ERROR 3 
8684 012156 052777 000091 167542 BIS WBREAK,@TXCSR  ;SET BREAK 
8685 012164 012700 000000 MOV #0,R0 TEXPECTED 
8686 012170 005367 166730 DEC COUNT 
8687 012174 001332 BNE 1$ 
a 
8690 s:THIS TEST VERIFYS THAT DSC CAUSES AN INTERRUPT 
8691 S:THIS TEST ONLY WORKS IN MAINT EXTERNAL MODE 
8692 *: INTERRUPT VECTOR: DURIV 
8693 012176 $TSTNO 
(1) 012176 NEWTST 
(2) 000000 $NWTST=0 
(2) 001 IF B <> 
to 912176 SSNEWTEST \STN,<>,SCOPE 
(3) .IRP ASC, <> 
(3) “IF €Q SNWIST 
(3) eNLI 
(3) SNWTST=1 
(3) .SBITL 127 ASCI 
(3) “LIST 
(3) STAR 
(3) T*TEST 27 ASCI 
(3) IFF 
(3) ASC] 
(3) .ENDC 
(3) ENDM 
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a iii, Att eh tt ttt iti ttt ti 


OCT- 


012176 
002 


001 
012176 000904 
000030 


001 
000 
000000 


NITIALIZE 


STARS 
IF B 


3 *ROReetekeraeteeeeereteeeeeeneerereeeeeeeeetekerereeneeeeeenesese 


HE COMMON TAGS 


eENDR 
LIST 
~END 
TST27: SCOPE 
STN=$TN+1 
oIFF 
on SSNEWTEST \STN,<>,<> 
~1F NE 40008$SwR 
~1F NB 
IF LE <=1> 
we MOV #1, STIMES 3:D0 1 ITERATION 
od 
MOV #,STIMES 3:00 ITERATIONS 
-ENDC 
~ENDC 
IF NB ‘ 
MOV #, SLPADR SET SCOPE LOOP ADDRESS 
-ENDC 
~ENDC 
IF NB 
IF OF SMAIL 
~ IRP ™NM,<\$TN-1> 
ENON MOV #° TNM,STESTN :;SET TEST NUMBER IN APT MAIL BOX 
~ENDC 
~ENDC 
REPT 0 
eNLIST 
RADIX 10 
LIST 
- IRP $DN,<\$N> 
EWTST 
MOV #S0N,STSTNM sSAVE THIS 
fant 


-1IF NB <>, MOV #, RETURN SET UP THI 
° i <>, MOV #, 1 COUNT SET UP THI 


<> 
MOV #,NEXT ;GO TO THIS TEST WHEN THRU 


SEQ 0108 
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(1) -IRP_ SDE, <\SE> 
(1) LIF DF OTST SDE 
(1) 3 MOV @TST'SDE,NEXT ;:GO TO THIS TEST WHEN THRU 
(1) ~ENDM 
1) «NLIST 
(1) «RADIX 8 
(1) LIST 
q) wIFF 
(1) : MOV #. EOP, NEXT 260 TO THIS TEST WHEN THRU 
(1) ~ENDC 
(1) ~ENDC 
(1) 3-11F NB <>, MOV #,LOCK ;SET UP FOR SCOPE LOOP 
(1) ~NLIST 
(1) .RADIX 10 
(1) $N=$N¢1 
(1) $E=$E+1 
(1) eRADIX 8 
(1) LIST 
(1) .ENDR 
8694 012200 105767 166747 TSTB JMRBY yIN MAINT EXTERNAL? 
8695 012204 100073 BPL 3$ :1F ANSWER NO JUMP AROUND TEST 
8696 012206 SRESET 
(1) 012206 052777 000400 167512 BIS #MRESET,@TXCSR ;MASTER RESET 
8697 012214 105767 166731 TSTB OPTCLR ;1S THE OPTIONAL CLR JUMPER IN ? 
8698 012220 100405 BMI “YES 
8699 012222 012777 000000 167462 MOV #0, aRXCSR :CLR THE UNRESETTABLE BITS 
8700 012230 005777 167456 TST @RXCSR :GET RID OF DSC BY READING RXCSR 
8701 012234 012777 012256 167474 S$: MOV #4$,aDURIV :SET UP TRAPCATCHER 
8702 012242 016777 004564 167470 MOV DUPRT ,aDURIS : 
8703 012250 106427 000000 MIPS #0 sALLOW INTERRUPTS 
8704 012254 000422 BR 1$ * JUMP AROUND INTERRUPT SVC ROUTINE 
8705 sTHE FOLLOWING 1S THE INTERRUPT SVC ROUTINE 
8706 012256 106427 000300 i$: MIPS #300 sDON'T ALLOW ANYMORE INTERRUPTS 
8707 012262 005777 167424 1ST @RXCSR 3DSC=1? 
8708 012266 100401 BM! +4 
8709 012270 104004 ERROR 4 sFALSE INTERRUPT 
8710 O12e7e 042777 000040 167412 BIC #OSINTE,@RXCSR ;CLEAR INTERRUPT ENABLE 
8711 012300 012716 012370 MOV #2$, (SP) :SET UP RETURN LOCATION 
8712 012304 016777 167430 167424 MOV DURIS,aDURIV ‘RESTORE TRAPCATCHER 
8713 012312 012777 000000 167420 MOV #0,aDURIS ; 
arte 012320 000002 RTI 
8716 012322 052777 000040 167362 1$ BIS #DSINTE ,@RXCSR ;SET INTERRUPT ENABLE 
8717 0123 0 052777 000002 167354 BIS #DTR,ARXCSR :TRY TO CAUSE INTERRUPT 
8718 012336 005000 CLR RO 
8719 012340 905200 INC RO :WAIT FOR INTERRUPT 
8720 012342 001376 BNE .°2 
8721 012344 016777 167370 167364 MOV DURIS,aDURIV sRESTORE TRAPCATCHER 
8729 012352 012777 000000 167360 MOV #0,aDURIS : 
8724 012360 042777 000040 167324 BIC MDSINTE,@RXCSR ;CLEAR INTERRUPT ENABLE 
8725 012366 104004 ERROR 4 s INTERRUPT FAILED TO OCCUR 
8726 012370 106427 000300 2$: MIPS #300 
8727 012374 3$: 
8729 612374 PRGEND <DUV11 CNDUU-A TAPE E>,<END OF PASS TAPE E> 
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96 
INITIALIZE THE COMMON TAGS 
SEOP -BEGIN 
sRADIX 10 


8 

END OF PASS 

TYPE NAME OF TEST 
UPDATE PASS COUNT 

;CHECK FOR EXIT “TO ACT=11 
SRESTART TEST 


-EOP: SCOPE 
JSR PC, CKSWR 


TYPE sTYPE NAME OF TEST 

MEPASS 

CONVRT ,OUTCRY 

TYPE DEVICE 

1STB MULTD  ;ARE YOU RUNNING MULTIPLE DEVICES ? 

BEQ cce [NO, JUMP AROUND 

TST ACTREG :ARE ANY DEVICES ACTIVE ? 

BNE RUNIT  :YES 

TYPE ,MCOW NO 

MOV ACTREG,RO :DISPLAY ACTREG 

HALT sSELECT SOMETHING TO RUN @ ACTREG: 

sSELELT SWITCHES & HIT CONTINUE (PUT SWOO =1 

j ~START ;START OVER AGAIN......YOU DESELECTED EVERYTHING 
RUNIT: ADD #10, BASEADD sNEXT BLOCK (ADDRESSES) 

0; ‘NEXT BLOCK (VECTORS) 


ZERO: oF #10,BASEIV 


LC 
ROL ROTADD ;UP DATE ROTATING POINTER 
BCS 2$ :1S IT THE LAST DEVICE 
310 BE TESTED IN THIS PAS 
BIT ROTADD,ACTREG ;TEST THIS DEVICE "eon ACTIVE STATUS 
BEQ RUNIT  ;IF NOT HEP TRY NEXT RESS 
JSR PC,REPLA CALCULATE NEW PARAM ETERS 
JMP RESTRT ;YES IT Was ‘ACTIVE, TEST THIS ot 
2$: MOV #1, ROTADD ET UP ROTATING 


TER’ oOR NEXT MULTIPLE PASS 

MOV KEEPADD BASEADD :RESTOR E BASE ADDR 
MOV KEEP Vv -BAS 
JSR PE CREDLAY CALC NEW PARAM 
BR ccé ; JUMP AROUND REPL 

REPLAY: MOV BASE ADD, DUBASE 3SET U LOR NEW ADDRESSES 
J UADOR ‘CREATE NEW ADDRESSES 
MOV BASELV DURLV [CREATE DURIV 
MOV BASEIV DURIS SCREATE DURIS 
MOV BASEIV OUTIV SCREATE DUTIV 
MOV BASEIV,DUTIS | ;CREATE DUTIS 

URIV.BASE IV TRESTORE 


OUTCRY: 1 


DRESS 
;RESTORE BASE acne VECTORS 


SEQ 0110 
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198 CNDUUA.M11 29-OCT-82 13:2 INITIALIZE THE COMMON TAGS SEQ 0111 
012644 001712 RXCSR 
(2) 012646 CCC: 
(2) 012646 005067 166530 CLR STSTNM SCLEAR TEST NUMBER 
(2) 012652 005067 166540 CLR SERRPC SCLEAR LAST ERROR PC 
(2) 012656 005067 166521 CLR SERFLG [CLEAR ERROR FLAG 
(2) 012662 005267 166224 INC PASCNT [UPDATE PASS COUNT 
(2) 012666 016767 166220 166206 MOV PASCNT, LIGHTS [DISPLAY PASS COUNT 
(2) 012674 016767 166212 166632 MOV PASCNT .SPASS “PASS COUNT TO AP 
(2) 012702 013701 000042 MOV aes ,Ri ‘CHECK FOR ACT=11 OR DDP 
(2) 012706 001406 BEQ RESTRT sIf NO CONTINUE TESTING 
(2) 012710 000005 RESFT 
(2) 012712 000905 RESET 
(2) 012714 004711 SENDAD: JSR PC,(R1) 
(2) 012716 000240 NOP 
(2) 012720 000240 NOP 
(2) 012722 000240 NOP 
(2) 0127246 RESTRT: 
(2) 0127246 012767 003376 166454 MOV #1ST142,$LPADR ;LOAD LAST ADDR 
(2) 012732 004767 000004 JSR PC, CKSWR 
(2) 012736 000167 170346 MP .BEGI 
1) 012742 $CK 
(2) sCHECK SWITCH REGISTER ROUTINE. 
(2) sCHECKS TO ALLOW FOR <*G> TO ALLOW 
(2) [THE CHANGING OF LOCATION 176 
(2) 012742 005737 000042 CKSWR: TST aea2 
(2) 012746 007040 BNE OuT 
(2) 012750 022767 000176 166462 CMP #SWREG, SWR sSOFTWARE SWR PRESENT? 
(2) 012756 001034 BNE ouT :NO-=LEAVE 
(2) 012760 105777 166460 TSTB = @STKS *CHECK TTY READY 
(2) 012764 100031 BPL OUT [NO=-LEAV 
(2) 012766 017767 166454 000422 MOV a$STKB, .MSG ‘GET CHARACTER 
(2) 012774 042767 177600 000414 BIC #177600,.MSG § :STRIP JUNK 
(2) 013002 122767 000007 000406 (MPBs«#7, MSG [1S IT <*G> ? 
(2) 013010 001017 BNE out NO 
(2) 013012 104401 016137 TYPE  ,MCNTG 
(2) 013016 005137 013056 CNTLU: COM aeRDSW 
(2) 013022 104401 016147 TYPE oMMSWR 
(2) 013026 104413 CONVRT 
(2) 013030 013060 WREGL 
(2) 013032 104406 016160 INSTR, MMNEW 
s 913036 104410 PARAM 
(2) 013040 000000 
(2) 0130462 177777 177777 
(2) 0130464 000176 SWREG 
(2) 013046 000 001 .BYTE 0,1 
(2) 013050 005037 013056 Out: CLR aeRDSW 
(2) 013054 000207 TS PC 
(2) 013056 000000 RDSW:  .WORD 0 
(2) 013060 000001 SWREGL: 1 
(2) 013062 006 002 .BYTE 6,2 
(2) 013064 000176 SWREG 
(1) 013066 000005 5 
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{3} 013070 $SCOP1 

$65 ;CHECK FOR FREEZE ON CURRENT DATA 

(3) 013070 004767 177646 ~SCOP1: JSR PC,CKSWR 

(2) 013074 032777 001000 166336 BIT #SwO9,aSwR 

(2) 0135102 001402 BEQ 1$ 

(2) 013106 016716 166000 MOV LOCK, (SP) 

(2) 013110 000002 1$: RT] 

(1) 0135112 -STYPE 

iH ~SBTTL TYPE ROUTINE 

($} 013112 STARS 

(3) 001 re B 

(3) FRRAAHAAAAAHATAAEATAAATHAAEEHEAAHHAAHEHRRAHHARARHAAKAAAAHAHAAeeHes 

(3) *iFF 

(3) SNLIST 

(3) .REPT 

(3) “LIST 

(3) 33 RARER AREHAHeKEC SAHARA AAREARAARARARERAERARAERAARAARARARAERAEREREAE 

(3) -NLIST 

(3) .ENDR 

(3) LIST 

(3) 000 -ENDC 

(2) s*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST Ly bad md WITH AO ah F 

(2) + * THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AF icCR A LINE FEED. 

(2) ; #NOT E1: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

(2) s*NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

cs) S*NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
** 

(2) 2 *CALL 

(2) ze) USING A TRAP INSTRUCTION 

te) “OR YPE »MESADR :;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
te 

(2) :* TYPE 

(2) 3* MESADR 

(3) ' 

(2) 013112 105767 166341 $TYPE: TSTB STPFLG eels os A TERMINAL? 

(2) 013116 100002 BPL 1$ R IF 

(2) 013120 000000 HALT + HALT HERE IF NO TERMINAL 

(2) 013122 000430 BR 3$ LEAVE 

(2) 013124 010046 1$: MOV RO,-(SP) 7; SAVE RO 

44 013126 01799 000002 1F DF A A a2(sP), RO S:GET ADDRESS OF ASCIZ STRING 

(2) 013132 122767 000001 166406 CMPB #APTENV,SENV : ; RUNNING IN APT MODE 

(2) 013140 001011 BNE 62$ 3NO,GO CHECK FOR APT CONSOLE 

(2) 013142 132767 000100 166377 BITB #APTSPOOL ,SENVM i: SPOOL nd rae oh’ca APT 

(2) 013150 001405 BEQ 62$ NO,GO CHECK R CONSOLE 

(2) 013152 010067 000004 MOV RO,61$ tisety P MESSAGE "ADDRESS FOR APT 

(2) 013156 004767 164624 JSR PC, *SATY3 ? 286001 MESSAGE TO A 

(2) 013162 000000 61$: WORD och 53508 ADDRESS 

(2) 013164 132767 000040 166355 62$: BITB #APTCSUP,SENVM CONSOLE SUPPRESSED 

ts} 013172 001993 ae BNE 608 oats. SKIP TYPE OUT 

(2) 013174 112046 2$: MOVB (RO)+,=(SP) :;PUSH CHARACTER TO BE TYPED ONTO STACK 
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(2) 013176 9019 5 BNE 4$ ::BR IF IT ISN'T THE TERMINATOR 
(2) 013200 005726 TST (SP) ::]F TERMINATOR POP IT OFF THE STACK 
(2) 013202 0126 0 60$: MOV ($P)¢ RO S:RESTORE RO 
(2) 013206 062716 000002 3$: ADD #2, (SP) > :ADJUST RETURN PC 
(2) 013210 000002 RTI : RETURN 
(2) 013212 122716 000011 4$: CMPB ss #HT,, (SP) ‘BRANCH IF <HT> 
(2) 013216 001430 BEQ 
(2) 01 20 122716 000200 CMPB es @CRLF, (SP) :;BRANCH IF NOT <CRLF> 
(3) 013224 001006 BNE 
(2) 01 $26 005726 TST (SP) ; :POP <CR><LF> EQUIV 
(2) 013230 104401 TYPE *:TYPE A CR AND LF 
(3) 013252 901525 SCRLF 
(2) 013234 105967 000130 CLRB  $CHARCNT ri: CLEAR CHARACTER COUNT 
(2) 013240 000755 BR 2$ S!GET NEXT CHARACT ER 
(2) 013242 004767 000056 S$: JSR PC ,STYPEC °:GO TYPE THIS CHARACTER 
(2) 013246 126726 166204 é$: CMPBs«SFILLC,(SP)* 31S IT TIME FOR FILLER CHARS. ? 
(2) 013252 001350 BNE 2 ::1F NO GO GET NEXT CHAR. 
(2) 013254 016746 166174 MOV SNULL ,-(5P) [:GET # OF ee Lue CHARS. NEEDED 
(2) ::AND THE NULL CHAR. 
(2) 013260 105366 000001 7$: DECB «AAC SP) i :DOES A NULL NEED TO BE TYPED? 
(2) 013264 002770 BLT 6$ ‘BR IF NO=-60 POP THE NULL OFF OF STACK 
(2) 013266 004767 000032 JSR PC, $TYPEC £:G0 TYPE A 
(2) 013272 105367 000072 DECB  $CHARCNT +:D0 NOT COUNT. is A COUNT 
(2) 013276 000770 BP 7$ >: LOOP 
(2) ;HORIZONTAL TAB PROCESSOR 
(2) 013300 112716 000040 8$: MOVBso#"_, (SP) ; :REPLACE TAB WITH SPACE 
(2) 013304 004767 000014 9$: JSR PC, $TYPEC [:TYPE A SPACE 
(2) 013310 132767 000007 000052 BITB #7. $CHARCNT ;BRANCH IF NOT AT 
(2) 013316 001372 BNE AB STOP 
(2) 013320 005726 TST (SP)+ ::POP SPACE OFF STACK 
(2) 013322 000724 BR 2$ ::GET NEXT CHARACTER 
(2) 013324 105777 166120 $TYPEC: TSTB a$TPS ::WAIT UNTIL PRINTER IS READY 
(2) 013330 100375 BPL $TYPEC 
(2) 013332 116677 000002 166112 MOVB 2(SP),a$TPB ::LOAD CHAR TO BE TYPED INTO DATA REG. 
(2) 013340 122766 000015 000002 CMPB #CR,2(SP) rr1S CHARACTER A A CARRIAGE RETURN? 
(2) 013346 001003 BNE 1$ 33 F NO 
(2) 013350 105067 000014 CLRB © $CHARCNT 33Y WESe<CLEAR CHARACTER COUNT 
(2) 013354 000406 BR TYPEX TEXIT 
(2) 013356 122766 000012 000002 1$: CMPB Ss # LF, 2( SP) 3318 CHARACTER A LINE FEED? 
(2) 013364 001402 BEQ STYPEX BRANCH IF YES 
(2) 913366 105227 INCB (PC) + SCOUNT THE CHARACTER 
(2) 013370 000000 SCHARCNT: .WORD 0 STCHARACTER COUNT STORAGE 
(2) 013372 000207 STYPEX: RTS PC 
(2) LIIF NDF HT,HT= 11 ::CODE FOR H HORIZONTAL TAB 
(2) “TIF NDF LF.LF= 12 *:CODE FOR LINE FEED 
(2) “TIF NDF CR.CR= 1 [: CODE FOR EARRIA GE RETU 
(2) “TIF NDF CRLF,CRLF= 200 ::CODE FOR CRERTAGE RETURN=LINE FEED 
(2) "TIF NDF $TPS.STPS: 
(2) “TIF EQ .-$TPS,$i05 WORD 177564 ss TTY PRINTER STATUS REG. ADDRESS 
(2) "TIF NDF $TPB.$TPB: 
(2) “LIF £0 .-$TPB,S$TPB: .WORD 177566 :;TTY PRINTER BUFFER REG. ADDRESS 
(2) "TIF NDF SNULL.$NULL: 
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(2) .1IF €Q .-S$NULL,$NULL: .BYTE 0 z:CONTAINS NULL CHARACTER FOR FILLS 
(2) “TIF NDF SPILLS SEILLS: 

(2) SLIF EQ. LLS§,$FILLS: .BYTE 2 s;CONTAINS # OF FILLER CHARACTER 
(3) TIF NDF nite gpyitts 

(2) SIIF EQ Fitce SFILLC: .BYTE 12 s INSERT FILL CHARS. AFTER A “LI 
(3) “TIF NDF sip ee eee 

(2) 

(2) .1IF €Q .-STPFLG,STPFLG: .BYTE 0 re‘TERMINAL AVAILABLE’ FLAG (BIT 
(2) LIF NDF SQUES, $QUES: 

(2) SIIF EQ .-$QUES,$QUES: ASCII °'2’ : QUESTION MARK 
(3) SIIF NDF SCRLF,S$CRLF: 

(2) “TIF EQ .-SCRLF,SCRLF: ASCII <15> s:CARRAIGE RETURN 
(2) SIIF NDF SLF,SLF: 

(2) TIIF EQ .-SLF,SLF: sASCIZ <12> SsLINEFEED 

(2) STIF NE 18, EVEN 

(1) 013374 SINSTR 

ts) ASCII STRING INPUT ROUTINE 

(2) 013374 017667 000000 000014 INSTR: MOV a(SP), MSG :PICK UP MESSAGE 

(2) 013402 062716 000002 ADD #2, (SP) : JUMP AROUND MESSAGE FOR RTI 
(2) 013406 105767 166134 TSTB ss SEN ZAPT CONTROL 

(2) 013412 001036 BNE INSTR2 [YES NO TYPE 

(2) 013414 104401 .INST1: TYPE 

(2) 013416 000000 "MSG: 0 

(2) 013420 012704 016172 MOV #INBUF RG GET STARTING LOC OF INBUF 

(2) 013424 012703 000007 MOV #7,R3 °MAX # OF CHARS 

(2) 013430 105777 166010 1$: TSTB «© a$STKS = TTY FLAG 

(2) 013434 100375 BPL 1$ 

(2) 013436 117714 166004 MOVB a$TKB, (R4) STAKE CHAR 

(2) 013442 142714 000200 BICB #200, (R4) STRIP 

(2) 013446 121427 000025 CMPB ss (RG) #25 71S IT <*G> 

(2) 013452 001760 BEQ INSTI 

(2) 013454 122427 000015 CMPB ss (RG) +, #15 SCHECK FOR CR 

(2) 013460 001413 BEQ INSTR? 

(2) 013462 105777 165762 2$: TSIB a$TPS  ;TEST FLAG 

(2) 013466 100375 BPL 2$ 

(2) 013470 117777 165752 165754 MOVB a$TKB,aSTPB sECHO CHARACTER 

(2) 013476 005303 DEC R3 :DID YOU TYPE TOO MANY CHARS ? 

(2) 013500 001353 BNE 18 

(2) 013502 104401 .INSTE: TYPE 

(2) 013504 015457 MOM 3? 

(2) 013506 000742 BR “INST? RETRY 

(2) 013510 000002 INSTR2: RTI 

(1) 013512 $PARAM 

(2) ZCONVERT ASCII STRING TO OCTAL 

(2) 013512 011605 .PARAM: MOV (SP), RS Put CONTENTS, OF SP INTO RS 

(2) 013514 012567 000162 MOV (R5)+,LOLIM sPUT LOW LIMIT INTO LOLIM 

(2) 013520 012567 000160 MOV (RS) ¢ ILIA PUT ate LIMIT INTO HILIM 

(2) 013524 012567 000156 MOV (R5)+.DEVADR  :PUT STORE LOC INTC DEVADR 

(2) 013530 112567 000154 MOVB  (R5) + LOBITS :PUT MASK INTO LOBITS 

(2) 013534 112567 000151 MOVB = (R5) + ADRCNT PUT T INTO ADRCNT 

(2) 013540 010516 MOV R5,(SP) ; RESTORE RETURN ADDR ON STACK FOR RTI 
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(2) 013542 905005 PARAM1: CLR R5 

(2) oi 544 12704 01617 MOV #INBUF .R4 

(2) 013550 122714 00001 CMPBssa#'15,, (RG) “CR ? 

(2) 01 234 991420 BEQ PARERR ;YOU TYPED CR TOO SOON ! 

(2) 013556 121427 000060 1$: CMPB ss (RG) , #60 sLOW LIMIT ASCII 0 

(2) 013562 002415 BLT PARERR 

(2) 013564 121427 000067 CMPB ss (RG) , #67 sHIGH LIMIT ASCII 7 

(2) 01 279 003012 BGT ARERR 

(2) 013572 142714 000060 BICB #60, (R4) sCONVERT TO OCTAL 

(2) 013576 152405 BISB = (R4S +, R5 SSTORE AWAY ITS AN OK CHAR 

(2) 013600 122714 000015 CMPB so #15, (R4) “CR ? 

(2) 013604 001414 BEQ Lits sNOW CHECK FOR HIGH @LOW LIMIT CONDS 

(2) 013606 006305 ASL R SALLOCATE ROOM FOR NEXT CHAR 

(2) 013610 006305 ASL R5 

(2) 013612 006305 ASL R5 

(2) 013614 000760 BR 1$ 

(2) 013616 122714 000015 PARERR: CMPB #15, (R4) CR? 

(2) 013622 001003 BNE 120 

(2) 013624 005737 013056 TST aeRDSW :CK SWR USED 

(2) 013630 001023 BNE PARTI 

(2) 013632 104407 120$: INSTER ;RETRY 

(2) 013634 000742 BR PARAM 

(2) sTEST TO SEE IF NUMBER IS WITHIN LIMITS 

(2) 013636 020567 000042 LIMITS: CMP R5,HILIM 

(2) 013642 101365 BHI PARERR ;THE # IS TOO HIGH 

(2) 013644 020567 000032 CMP R5,LOLI 

(2) 013650 103762 BLO PARERR ;THE # IS TOO LOW 

(2) 013652 136705 000032 BITB LOBITS,R5 ;TEST BY MASKINGTHE # 

(2) 013656 001357 BNE PARERR 

(2) ;STORE NUMBER AT SPECIFIED ADDRESS 

(2) 013660 016704 000022 MOV DEVADR,R4 3GET STARTING ADDR OF 

(2) 013664 010524 1$: MOV R5, (R4S+ ‘STORE AT THIS ADDR 

(2) 013666 062705 000002 ADD #2,R5 

(2) 013672 105367 000013 DECB ADRCNT ;HOW MANY TIMES + 2 ? 

(2) 013676 001372 NE 1$ 

(2) 013700 000002 PARTI: RT 

(2) 013702 000000 LOLIM: 0 

(2) 013704 00000 HILIM: 0 

(2) 013706 000000 DEVADR: 0 

(2) 613710 000000 LOBITS: 0 

(2) 013711 ADRCNT=LOBITS+#1 

(1) 013712 SREG 

s sSAVE PC OF TEST THAT FAILED AND RO-RS 

(2) 013712 016667 000004 165206 .SAVOS: MOV 4(SP), SAVPC 

(2) ZSAVE RO-RS 

(2) 013720 010567 165550 Sv05S: MOV RS, S$REGS 

(2) 013724 010467 165542 MOV R4°SREGS 

(2) 013730 010367 165534 MOV R3,$RES3 


SEQ 0116 
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1104 CNDUUA.M11  29-0CT-82 13 3) TYPE ROUTINE SEQ 0117 
(2) 014157 SPACNT=CHRCNT#1 
(2) 014169 000000 BINWRD: 0 
(1) 01416 SSETFLG 
(3) sCOMPARE THE FIRST CHARA ACTER, IN itty JELETYPE INPUT 
(3) BUFFER TO THE CHARACTERS AND 
(2) SIF THE CHARACTER IS we CLEAR THE FLAG 
3 [IF THE CHARACTER IS "'Y'’ SET THE FLAG 
(2) 014162 017605 000000 .SETFLG:MOV a(SP) RS 
(2) 014166 122767 000116 001776 CMPBsé#''N, INBUF s1S IT "'N’ 2 
(2) 014174 90100¢ BNE 1$ 
(2) 014176 10591 CLRB 3 =s (RS) ~—s« 000 
(3) 914200 000406 BR 2$ sapet 
(2) 014202 122767 000131 001762 1$: CMPB Ss # Y, INBUF sIS it “y"" ? 
(2) 014210 001005 BNE 3$ 
(2) 014212 112715 177777 MOVB = #=1,, (RS) 3377 
(2) 014216 062716 000002 2$: ADD #2, (SP) 
(2) 014222 000002 RTI 
(2) 014224 104407 3$: INSTER ;RETRY 
(2) 014226 000755 BR *SETFLG 
(1) 014230 .SERROR SAVIT 
(2) *SBTTL PRNOR HANDLER ROUTINE 
(2) 014230 STARS 
(3) 001 IF 
(3) FERRARA EAE AEA AAE AAA A REAR AAA AREER AREERAAAARAERERAEAAREO RENEE 
(3) *] 
(3) -NLIST 
(3) 
(3) ‘List 
(3) FRRAAAAAAAAARA AREA EATER EAA ERE AEAEERARAARERA REAR REREE HE 
(3) ‘ALIST 
(3) ENDR 
(3) “LIST 
(3) 000 ENDC 
(2) :*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
(2) ae TPO sk THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
(2) j “IIE NE Py d0008SSuR, : «AND TYPE OUT THE PC OF THE ERROR INSTRUCTION 
(2) hate S*AND GO TO SAVIT ON ERROR 
(2) iS THE SWITCH OPI 1ONS PROVIDED BY THIS ROUTINE ARE: 
3 ¢ s 

. $*SW13=1 INHIBIT ERROR TYPEOUTS 
(2) 7*SW10=1 BELL ON ERROR 
(2) :*S5Ww09=1 LOOP ON ERROR 
(2) S*CALL 
(2) te ERROR N s;ERROR=EMT AND N=ERROR ITEM NUMBER 
(2) 
(2) 014230 SERROR: 
(2) “LIF NE $SETUPG100, CKSWR :;TEST FOR CHANGE IN SOF T-SwR 
(2) 001 F NB < 
(2) * TRP NEWINS © 
(2) NEWINS 
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ERROR HANDLER ROUTINE 


SEQ 0118 


(2) .ENDM 
(2) ENDC 
(2) 014230 165147 7$: INCB =e SERFLG 33SET THE ERROR FLAG 
(2) 014234 BEG 7 [DON'T LET THE FLAG GO TO ZERO 
(2) 014236 165140 MOV STSTNM,AD1SPL AY SIDISPLAY TEST NUMBER AND ERROR FLAG 
(2) .IF €Q 20008$SwR : 
n INC SERTTL s:INC THE ERROR COUNT 
J r 
(2) 014244 032777 002000 BIT #81710, aSWR BELL ON ERROR? 
(2) 014252 001402 BEQ 1$ :N 
(2) O14954 104401 001516 TYPE SBELL + TRING BELL 
014260 005267 165126 18: INC $ERTTL +: COUNT THE NUMBER OF ERRORS 
(2) 014264 011667 165126 MOV SP) SERRPC :;GET ADDRESS OF ERROR INSTRUCTION 
(2) 014270 162767 000002 165120 SUB RRPC 
(2) 014276 117767 165114 165110 asthe, SITEMB :;STRIP AND SAVE THE ERROR ITEM CODE 
(2) 001 IF NE 20g00essi » Sd 
(2) 014304 032777 020000 165126 1713, aSwR s;SKIP TYPEOUT IF SET 
(3) 014312 001004 ‘ad BAe itt ::SKIP TYPEOUTS 
(2) 002 “IF OF S40CAT 
(2) CMP (SP) ,#1002 ii] aRETURN PC LESS THAN 1002 
(2) BHI 12$ R IS ILLEGAL TRAP 
(2) s sPROCESS UNEXPECTED TRAP OR inréARUPT 
(2) MOV 4(SP) ,SERRPC GET Toe AT TIME OF FALSE TRAP 
(2) SUB #2, SERRPC STADJUST PC 
(2) TYPE 160$ :: TYPE HEADER 
(2) TYPOCT $ERRPC :: TYPE PC AT TIME OF ERROR 
(2) TYPE .11$ 
(2) SUB #4, (SP) ::GET FALSE TRAP VECTOR ADDR 
(2) MOV (SP) , SERRPC 
(2) TYPOCT $ERRPC 
(2) TYPE SSCRLF 
(2) CMP (SP)+, (SP)+ ::POP FALSE TRAP VECTOR PC&ADDR 
(2) BR 20$ 
(2) 10$: sASCIZ <200>"PC= ' 
(2) 11$: "ASCIZ ° UNEXPECTED TRAP TO 
(2) EVEN 
(2) 12$: 
(2) 001 .ENDC 
(2) 002 e .IF NB SAVIT 
(2) 014314 004767 000072 JSR PC,SAVIT ::G0 TO USER ERROR ROUTINE 
(2) 001 .ENDC 
(2) TIFT 
(2) 002 “IF B SAVIT 
(2) TYPE SCRLF 
(2) TYPOCT $ERRPC,<ERROR ADDRESS> 
(2) 001 END 
(2) 014320 104401 001523 TYPE ,SCRLF 
(2) 000 .ENDC 
(2) 014324 20$: 
(2) 001 SIF DF SMAIL 
(2) 014324 122767 000001 165214 CMPB ¥#APTENV,SENV =; ;RUNNING IN APT MODE 
(2) 014332 001007 BNE SINC,SKIP APT ERROR REPO 
(2) 014334 116767 165054 000004 MOVB = $ITEMB,21$ [:SET ITEM NUMBER AS ERROR {NUMBER 
(2) 014342 004767 163450 JSR PC, SATY4 ::REPORT FATAL ERROR TO APT 


06 
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CNDUUA.M11 -0CT- 
(2) 01434 000 
(2) 01434 00 
(2) 014350 000/7 
(2) 000 
tf 3 sos 
(2) aR TS 005777 165062 
is} 014356 100001 
ih 014360 000000 
is} 00 
(2) 014362 032777 001000 
TH ape 144 001402 
(2) 014372 016716 165012 
$s: 014376 005767 165112 
(2) 014402 001402 
(2) 0144046 016716 165104 
(2) 014410 
(2) 
(2) 
(2) 001 
(2) 
(2) 002 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 001 
(2) 000 
(2) 001 
(2) 
(2) 
(2) 
(2) 
(2) 000 
(2) 001 
(2) 014410 000002 
(2) 
(2) 
(2) 
(2) 
(2) 000 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 
(2) 001 
(2) 
(2) 


21$: BYTE 
228: aS 2$ 
-ENDC 
IF NE $SWR&100000 :$w15 
3$: TST aSWR 
BPL 
HALT 
.IIF NE $SETUP&100, CKSWR 
IF NE $SWR&1000 Sid 
165050 3$: BIT #31109, aSuR 
MOV SLPERR, (SP) 
4$: TST SESCAPE 
BEQ 
MOV SESCAPE, (SP) 
5$: 
wIFF 
3$: 
-ENDC 
“IFF 
“IF NE $SWR&1000 > $w09 
3$: BIT #B1T09,aswR 
MOV SLPERR, (SP) 
3$: TST SESCAPE 
BEQ 4$ 
MOV SESCAPE, (SP) 
43%: 
IF 
2$: 
-ENDC 
*ENDC 
“IF NE $SSETUP&20 
CMP #SENDAD 0842 
BNE 6$ . 
HALT 
6$: 
-ENDC 
o1F B <> 
RTI 
L1FF 
*IRP LASTIN,<> 
LASTIN 
ENDM 
“ENDC 
“TIF NDF SERTTL,SERTIL: 
"TIF EQ .-SERTIL, SERTIL: 
"TIF NDF $TSTNM, $TSTNM: 
"TIF EQ .-$TSTNM, STSTNM: 
"LIF NDF SERFLG,$ERFLG: 
“TIF EQ .-SERFLG, SERFLG: 
“TIF NE .81,.EVEN 
"IF NE $SWRE1000; SWO9 
"LIF NDF SESCAPE,SESCAPE: 
“LIF EQ .-SESCAPE,SESCAPE: .WORD 


3;APT ERROR LOOP 


;;HALT ON ERR 
33;SKIP IF CONTINUE 
;;HALT ON ERROR! 


:iLOOP ON ERROR SWITCH SET? 
SSFUDGE RETURN FOR LOOPING 

+: CHECK FOR AN ESCAPE ADDRESS 
7;BR IF NONE 

FUDGE RETURN ADDRESS FOR ESCAPE 


3;LOOP ON ERROR? 
F NO 


3 N 
3sFUDGE RETURN FOR LOOPING 
3;CHECK FOR AN ESCAPE ADDRESS 


3:BR_IF NONE 
33FUDGE RETURN ADDRESS FOR ESCAPE 


3;B1T04--(.SEOP) 


3sACT=11 AUTO-ACCEPT? 
;;BRANCH IF NO 


3 RETURN 

WORD s:ERROR COUNT 
BYTE 3: TEST NUMBER 
BYTE s ERROR FLAG 


ESCAPE ON ERROR ADDRES: 


SEQ 0119 
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000 
001 


000 


001 


000 


016746 
104402 
001 


yoapec~6e 


164474 


001523 


001414 


164724 


D 10 


10:02 PAGE 62-106 
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.ENDC 

“TIF NDF SERRPC,SERRPC: 

S1IF EQ. RRBC , SERRPC .wORD 0 

"IF NE $$WR&2000;SW10 

-1IF NDF $BELL,SBELL: 

+f Ed .-$BELL,$BELL: .ASCIZ <207><377><377> ;;ASCII CODE FOR BELL 
“TIF NDF SITEMB,SITEMB: 

“1IF EQ .-SITEMB,SITEMB: .wORD 0 Zr 1TEM BYTE 
TIF NDF SQUES,$QUES: 

“TIF .-$SQUES,$QUES: ASCII "2" s;QUESTION MARK 
“TIF NDF SCRLF,$CRLF: 

<IIF .-SCRLF,S$CRLF: ASCII <15> Z:CARRAIGE RETURN 
“LIF NDF SLF,SLF: 

“TIF EQ .-SLF,SLF: sASCIZ <12> TL INEFEED 

-IIF NE 18, «EVEN 

$NEED m 

SAVIT: MOV RO,HLDO 


R5,HLDS 
MOV STSTNM,HLD6 


«SERRTYP 

~SBTTL ERROR MESSAGE TYPEOQUT ROUTINE 
STARS 

-IF B 


PRRARARARAK KARA TAA TEA AT ATE TAT Latte ee AHet AeA ReRe NERA eE TES 
iFF 

-NLIST 

“List 


33 RRA AAAAAAAAEAEARAAAARAV AAA AAELAAAAAAAAAAAAAEAARERAAAAAAAAARAT 


eNLIST 

-ENDR 

ge 

s*THIS ROUTINE USES THE “IT NTROL ih i setter TO A by WHICH 


ITEM CO 
7*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE "ERROR TABLE’ (SERRTB), 
7*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: . = 7 
TYP ,ScRLf zi"'CARRIAGE RETURN’’ & “‘LINE FEED 
MOV RO,-(SP) 33 SAV 
CLR RO ::PICKUP THE ITEM INDEX 
B1SB a#S1TEMB,RO 
BNE 1$ aetf ITEM NUMBER IS ZERO, JUST 


Yee THE PC OF THE ERROR 
SERRPC,<ERROR avbies 
SERRPC .-(SP) 22 SAVE SERRPC FOR TYPEOUT 


AD 
33G0 TYPE=-OCTAL ASCIICALL DIGITS) 


TYPOCT 
MOV 


TYPOC 
oat B 


SEQ 0120 


isLAST ERROR INSTRUCTION EXECUTE 


10 
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08 CNDUUA.M11 ERROR MESSAGE TYPEOUT ROUTINE SEQ 0121 
014474 000426 - BR 3 3:GET OUT 
(3) BR 10$ 3:GET OuT 
(3) 00 ;ENDC 
(3) 014476 005300 i$: DEC RO ;sADJUST THE INDEX SO THAT IT WILL 
(3) 014500 006 99 ASL R 33 WORK FOR THE ERROR TABLE 
(3) 014502 00630 ASL 
(3) 014504 006300 ASL RO 
(3) 014506 06 700 001652 ADD #SERRTB,RO ::FORM TABLE POINTER 
(3) 014512 012067 000004 MOV (RO)+,2$ >:PICKUP ‘ERROR MESSAGE’ POINTER 
(3) 014516 001404 BEQ 3$ *:SKIP TYPEOUT IF NO POINTER 
(3) 014520 104401 TYPE i: TYPE THE “ERROR MESSAGE" 
(3) 014522 000900 2$ .WORD 0 3:"ERROR MESSAGE'’ POINTER GOES HERE 
(3) 014594 104401 001523 TYPE SSCRLF iE CARRIAGE RETURN’ & "LINE FEED’ 
(3) 014530 012067 000004 3$ MOV (RO)+,4$ ::PICKUP ‘DATA HEADER’ POINTER 
(3) 014534 001404 BEQ S$ ::SKIP TYPEOUT IF 0 
(3) 014536 104401 TYPE +: TYPE Tne “DATA HEADER’ 
(3) 014540 000000 4$: .WORD 0 i: DATA HEADER’ POINTER GOES HERE, 
(3) 014542 104401 001523 mee TYPE SSCRLF *:"CARRIAGE RETURN’ & "LINE FEED 
(3) 014546 011000 5$: MOV (RO) ,RO 3 sPICKUP “DATA TABLE’ POINTER 
(3) 014550 001004 BNE 7$ :GO TYPE (HE DAT 
(3) 014552 012600 6$: MOV (SP)+,RO S:RESTORE RO 
(3) 014554 104401 001523 TYPE SCRLF ; CARRIAGE RETURN’ & "LINE FEED" 
(3) 014560 000207 RTS PC + RETURN 
(3) 014562 7$: 
(4) 014562 013046 ao in mov a(RO)+,-(SP)  ;;SAVE a(RO)+ FOR TYPEOUT 
. >. oe 
(4) 014564 104402 TYPOC ::G0 TYPE=-OCTAL ASCII(ALL DIGITS) 
(3) 014566 005710 TST (RO) ::1S THERE ANOTHER NUMBER? 
(3) 014570 001770 BEQ 6$ ::BR IF NO 
(3) 014572 104401 014600 TYPE 8S S:TYPE TWOC2) SPACES 
(3) 014576 000771 BR $ >: LOOP 
(3) 014600 020040 000 8$: SASCIZ / / ::TWO(2) SPACES 
(3) 014604 “EVEN 
(3) J IFF 
(3) 5$: MOV R1,-(SP) AVE RI. % 
(3) MOV (RO)+,R1 HICK. ‘DATA TABLE'’ POINTER 
(3) BEQ 9$ :BR IF NO DATA TO BE TYPED 
(3) MOV (RO)+,RO ;PICKUP, "DATA FORMAT": POINTER 
(3) 6$: TSTB = (RO) + ‘OCTAL’’ OR "DECIMAL" 
(3) BNE 7$ :2BR IF DECIMAL 
(3) TyPoct acrid :: TYPE AN OCTAL NUMBER 
(3) 7$: TYPDEC acRis s:TYPE DECIMAL NUMBER 
(3) 8$: TST R1) 351 THERE ANOTHER NUMBER? 
(3) BEQ oF *BR IF N 
(3) TYPE iE TYPE TWO(2) SPACES 
(3) BR 5 33 
(3) 9$: MOV (SP)+,R1 : :RESTORE R1 
(3) 10$: MOV (SP)+ ;RO ZRESTORE RO eae x 
(3) TYPE $CRL ZE"CARRIAGE RETURN" & “LINE FEED 
(3) RTS PC :R 
(3) 11$: SASCIZ / / tS 1wo(2) SPACES 


ram 


F 1 
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~ 
eo 


-EVEN 
000 ~ENDC 
014604 ~$STYPOCT 
-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


014604 STARS 
001 re B 


THe HeHRReKeeeeeererererteeeereeeeeeeeeeeeeneeteneeeeeeRenetee 
FF 

“NLIST 

oREPT 

“LIST 


3 SURAAAAAAAAAAAAHATAEKA TAHA HAHAH AKAKAAA AHH AHARHKAAAK AR AeRAe 
-NLIST 


D 
«LIST 


-ENDC 

s*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 

3 #0CTAL (ASCII) NUMBER AND TYPE IT. 

*$T — HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


000 


ee ee ee ee ee ee a ee ee ee ele a I ee we 


(3 

6 

( 

( 

( 

( 

(3 

(3 

(3 

(3 

(3 

(3 

(3 

(2 

(2 

(2 

(2 tec 

(2 38 MOV NUM, (SP) y;NUMBER TO BE TYPED 

(2 38 TYPOS :CALL FOR TYPEOUT 

(2 3 BYTE N ::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

(2 :* “BYTE mM :m=1 OR 0 

(2 it =TYPE LEADING ZEROS 

ts 3* +) SUPPRESS LEADING ZEROS 
32 

(2 s*STYPON-==-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

(2 z*STYPOS OR $TYPOC 

(2 :*CALL: 

(2 38 MOV NUM, =-(SP) zs ;NUMBER TO BE TYPED 

(2 :* TYPON :CALL FOR TYPEOUT 

(2 {$1 YPOC=--ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

(2 ie MOV NUM, -(SP) s;NUMBER TO BE TYPED 

(2) 38 TYPOC CALL FOR TYPEOUT 

(2) 014604 017646 000000 $TYPOS: MOV a(SP),-(SP) :zPICKUP THE MODE 

(2) 014610 116667 000001 000211 MOVB 1(SP) ,SOFILL sLOAD ZERO FILL SWITCH 

(2) 014616 112667 000207 MOVB (SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 

(2) 014622 062716 000002 ADD #2, (SP) S:ADJUST RETURN ADDRESS 

(2) 916626 000406 BR $TYPON 

(2) 014630 112767 000001 000171 $TYPOC: MOVB #1, SOF ILL :3SET THE ZERO Fit SuITCH 

(2) 014636 112767 000006 000165 MOVB #6, SOMODE +1 3 SET SIX(6) DIGITS 

(2) 014644 112767 000005 000154 $TYPON: MOVB #5,SOCNT 38 eT 1 THe ITERATION COUNT 

(2) 014652 010346 MOV R3,-(SP) 

(2) 014654 010446 MOV R4,-(SP) HISAVE R4 

(2) 014656 010546 MOV R5,°(SP) SAVE R5 

(2) 014660 116704 000145 MOVB SOMODE +1,R4 S:GET THE NUMBER OF DIGITS TO TYPE 

(2) 014664 005404 NEG R4 

(2) 014666 062704 000006 ADD F6.RG 2; SUBTRACT Ly FOR MAX. ALLOWED 

(2) 014672 110467 00013 MOVB Re » SOMODE SAVE IT FOR US 

(2) 014676 116704 00012 MOVB SOFILL,R4 ery THE PERO FILL SWITCH 

(2) 014702 016605 000012 MOV 12(SP) .RS z:PICKUP THE INPUT NUMBER 


G 10 
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(2) 0147 905003 CLR R3 Z:CLEAR THE OUTPUT WORD 
(2) 01471 00610 1$: ROL R5 s:ROTATE MSB INTO “'C’’ 
(2) 014712 000404 BR 3$ ':G0 DO MSB 
(2) 014714 906195 2$: ROL R5 S:FORM THIS DIGIT 
(2) 014716 006105 ROL R5 
(2) pr0789 006105 ROL R5 
(2) 014722 01050 MOV R5,R3 
(2) 014724 00610 3$: ROL R3 3:GET LSB OF THIS DIGIT 
(2) 014726 105367 000076 DECB  $OMODE s;TYPE THIS DIGIT? 
(2) 014732 joggre BPL 7$ 7:BR IF NO 
(2) 014734 042703 177770 BIC #177770,R3 [GET RID OF JUNK 
(2) 014740 B01 0Re BNE 4% si: TEST FOR O 
(2) 014742 005704 TST RG :;SUPPRESS THIS 0? 
(2) 016744 001403 BEQ 5$ ':BR IF YES 
(2) 014746 005204 4$: INC RG [DON'T SUPPRESS ANYMORE 0°S 
(2) 014750 052703 000060 BIS #°0,R3 SIMAKE THIS DIGIT ASCII 
(2) 014754 052703 000040 5$: BIS #* oR3 ssMAKE ASCII IF NOT ALREADY 
(2) 014760 110367 000040 MOVB = R3, BS t:SAVE FOR TYPING 
(2) 014766 104401 015024 TYPE 8 7:60 TYPE THIS DIGIT 
(2) 014770 105367 000032 7$: DECB «=—s-« $OCNT >: COUNT BY 1 
(2) 014774 003347 BGT 2$ °:BR IF MORE TO DO 
(2) 014776 002402 BLT 6$ ':BR IF DONE 
(2) 015000 005204 INC RG S: INSURE LAST DIGIT ISN'T A BLANK 
(2) 015002 000744 BR 2$ [G0 DO THE LAST DIGIT 
(2) 015004 012605 6$: MOV (SP)+,R5 s RESTORE R5 
(2) 015006 012604 MOV (SP)+.R4 T:RESTORE RG 
(2) 015010 012603 MOV (SP)+,R3 s RESTORE R3 
(2) 015012 016666 000002 000004 MOV 2(SP) ,4(SP) s:SET THE STACK FOR RETURNING 
(2) 015020 012616 MOV (SP)+, (SP) 
(2) 015022 000002 RTI + ;RETURN 
(2) 015024 000 8$: .BYTE 0 ::STORAGE FOR ASCII DIGIT 
(2) 015025 000 YTE 0 sz; TERMINATOR FOR TYPE ROUTINE 
(2) 015026 000 SOCNT: .BYTE 0 S:OCTAL DIGIT COUNTER 
(2) 015027 SOFILL: .BYTE 0 [:ZERO FILL SWITCH 
(2) 015030 000000 SOMODE: .WORD 0 s:NUMBER OF DIGITS TO TYPE 
(1) 015032 SPFAIL 
ss sENTER HERE ON POWER FAILURE 
(2) 
(2) 015032 SPWRDN: 
(2) 015032 010046 -PFAIL: MOV RO,-(SP) :SAVE RO-R5 ON PROCESSOR STACK 
(2) 015034 010146 MOV R1,-(SP) 
(2) 015036 010246 MOV R2.-(SP) 
(2) 915040 010346 MOV R3,-(SP) 
(2) 015042 010446 MOV R4,-(SP) 
(2) 015044 010546 MOV R5.-(SP) 
(2) 015046 016746 162752 MOV 24,-(SP) 
(2) 015052 010667 164040 MOV SP,SAVSP sSAVE STACK POINTER 
(2) 015056 012767 015070 162740 MOV BRESTART, 24 ?SET UP FOR POWER UP TRAP 
(2) 015064 000000 HALT [HALT ON POWER DOWN NORMAL 
(2) 015066 000777 BR . 
(2) sPROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 
(2) 015070 016706 164022 RESTAR: MOV SAVSP,SP sRESTORE STACK POINTER 
(2) 015074 012605 MOV (SP)+,R5 sRESTORE RO-RS 


SEQ 0124 


H 10 
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CNDUUA.M11 29-00 T=82 13:2 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0126 
(2) 016144 020040 999 
(2) 016147 040 053 036522 MMSWR: .ASCIZ / SWR= / 
(2) 016154 020040 000040 
(2) 016160 020040 047040 053505 MMNEW: .ASCIZ / NEW= / 
is} 016166 020075 000040 
(2) .EVEN 
ot) 016172 S$BUFFER 
3) ;BUFFERS FOR INPUT-OUTPUT 
(2) 016172 000000 INBUF: 0 
(2) 016234 .=.+40 
(2) 016234 000900 TEMP: 0 
(2) 016276 =. +40 
(2) 016276 000000 MDATA: 0 
(2) 016340 The 
(1) 016340 $SCOPE 
vi 016340 “eaeere 8 
(3) {SBTT Hits s SENDLER ROUTINESTARS 
(3) 1 eTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
(3) S*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. ()ISPLAY<7:0>) 
(3) 001 “IF EQ $TSTNM+1-$ERFLG 
(3) -_ ioe LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08> 
(3) S*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
(3) 3*SW14=1 LOOP ON T 
(3) 3*SwWi1=1 INHIBIT ITERATIONS 
(3) 3*Sw09=1 LOOP ON ERROR 
(3) 001 IF NE 4008$SWR 
(3) 3 *Sw08=1 00° N TEST IN SW°<7:0> 
(3) LIF EQ <$SWRMK&377>-200,;* =1 OP ON TEST IN SWR<6:0> 
(3) e1IF EQ <SSWRMK&377>-300,;*SWwO08=1 LOOP ON TEST IN SWR<5:0> 
(3) LIF EQ <$SWRMKE&377>-340,;*SWw08=1 LOOP ON TEST IN SWR<4:0> 
(3) eLIF EQ <$SWRMK&377>-360,;*Sw08=1 LOOP ON TEST IN SWR<3:0> 
(3) LIF EQ <$SWRMK&377>-370,;*Sw08=1 LOOP ON TEST IN SWR<2:0> 
(3) LIF EQ <$SWRMK&377>-374,;*SWO08=1 OP ON TEST IN SWR<1:0> 
(3) LIF EQ <SSWRMK&377>-376; *SwO8=1 LOOP ON TEST IN SwR<0> 
(3) 000 oENDC 
(3) 3 *CALL 
44 3* SCOPE :;SCOPE=10T 
(3) 016340 $SCOPE: 
(3) ~1IF NE $SETUPG100, CKSWR zs: TEST FOR CHANGE IN SOF T=SwR 
(3) 001 IF NB <SC> 
(3) ~IRP NEWINS,<SC> 
(3) NEWINS 
(4) .ENDM 
s) 016340 sc 
2? sSCOPE LOOP AND INTERATION HANDLER 
(5) 016340 ~ SCOPE: 
(5) 016340 004767 174376 JSR PC, CKSWR 
(5) 016344 005067 163046 CLR SERRPC CLEAR LAST ERR 
(5) 016350 022716 003376 CMP #1ST142, (SP) 1S SCOPE AT BEGINING OF TEST 1? 
(5) 016354 001422 BEQ SXTSTR sYES NO LOOP. 
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114 CNDUUA.M11 29-OCT-82 13:2 SCOPE HANDLER ROUTINESTARS SEQ 0127 
(5) 
(5) 016356 032777 040000 163054 TTST: BIT #B1T14,aSWR :THIS CO DE 1S FOR TESTING FOR BIT 14 
2 (5) 016364 O0141¢ BEO 1$ [ON LSI WHICH SYS OMA € CANNOT HANDLE 
(5) 016366 016767 163010 163012 MOV STSTNM,SLPADR 
| (5) 016374 900406 BR 1$ 
(5) 016376 105777 163062 TSTB 3s @STKS sKEYBOARD DONE? 
(5) 016402 100123 BPL SOVER ‘BR I 
(5) 016406 017766 163036 177776 MOV a$TKB,-2(SP) [CLEAR DONE BIT 
(3) 000 ~ENDC 
(3) 001 .IF NE $SWR&40000 
(3) 002 .IF DF $40CAT 
(3) 3G0 TO ERROR ROUTINE IF RETURN PC LESS THAN 1002 
(3) i HOTMERUI SE CON TIN UE 
(3) CMP ~#1002 ;;UNEAPECTED TRAP OR INTERRRUPT 
(3) BHI i, S:ARE TRAPPED HERE VIA IOT 
(3) on sae: JMP SERROR ':G0 PROCESS UNEXPECTED TRAP 
(3) 016412 032777 040000 163020 i$: BIT #B1T14,aSWR i: LOOP ON PRESENT TEST? 
(3) 016420 001114 BNE SOVER T:VES IF Sw14=1 
(3) 000 .ENDC 
(3) -MHHHASTART OF CODE FOR THE XOR TESTERssass 
(3) 016422 000416 $xTSTR: BR 6g s1F RUNNING ON THE role TESTER CHANGE 
(3) THIS INSTRUCTION TO A "'NOP’’ (NOP=240) 
(3) 016424 013746 000004 MOV a#ERRVEC, gu (SP) SAVE THE CONTENTS , ATHE ERROR VECTOR 
(3) 016430 012737 016450 000004 MOV #580 WERRVEC t5SET FOR TIMEOU 
(3) 016436 005737 177060 TST 7177060 7: TIME OUT ON OOR? 
(3) 016442 012637 000004 MOV tithe QMERRVEC ::RESTORE THE ERROR VECTOR 
(3) 016446 000463 BR $SVLAD 3360 TO THE NEXT TEST 
(3) 016450 022626 5$: CMP (SP)+,(SP)+ SCLEAR THE STACK AFTER A TIME OUT 
(3) 016452 012637 000004 MOV (SP)+.@MERRVEC ::RESTORE THE ERROR VECTOR 
(3) 001 IF NE $SWR&1000 
(3) 016456 000423 —_ BR 7$ ::LOOP ON THE PRESENT TEST 
(3) BR SOVER ::LOOP ON THE PRESENT TEST 
(3) 000 .ENDC 
(3) 016460 65: ; #AAMAEND OF CODE FOR THE XOR TESTERMMMHA 
(3) 001 IF NE $SWR&4 
(3) 016460 032777 000400 162752 BIT 1108, aSwR ::LOOP ON SPEC. TEST? 
(3) IF NE $5une5s000; ie OR SwO9 
(3) 016466 001404 ae BEQ 2$ ::BR IF NO 
(3) BEQ $SVLAD ::BR IF NO 
(3) 001 .ENDC 
(3) 002 “IF NB 
(3) 003 “IF DIF <SWO8TBL>,<> 
(3) ERROR; sILLEGAL ARGUMENT IN .$SCOPE - 
(3) CLR (SP) Ti CLEAR A TEMP. LOCATION 
(3) MOVB aSWR, (SP) PICKUP THE DESIRED TEST NUMBER 
(3) .1IF NE $SWRMK, BIC #SSWRMK, ( tgp) K OUT UNDESIRED BITS 
(3) EQ 8s : ;BRANCH ‘ip BAD TEST NUMBER IN SWR 
(3) LIRP =X, <\$ TN=1> 
(3) MP wx, (SP) s:CHECK THE NU 
(3) MBER IN THE SWR 
(3) .ENDM 
(3) BLT 3 ::BRANCH IF TEST NUMBER IS OUT OF RANGE 
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(3) MOV (SP) »STSTNM : UPDATE THE TEST NUMBER 

(3) DEC (SP) + BACKUP 

(3) ASL (SP) ::SCALE THE TEST NUMBER AS AN INDEX 
(3) ADD #$Su0BTBL (SP) 3:FORM THE ADDRESS OF TEST POINTER 
(3) MOV a(SP)+,$LPADR sSeT LOOP ADDRESS TO DESIRED TEST 
(3) BR SOVER LOOP ON THE TEST 

(3) 8$: TST (SP)¢ [CLEAN THE BAD TEST NUMBER OFF OF THE STACK 
(3) 002 .ENDC 

(3) SIF 

(3) 003 [IF EQ $SWRMK 

(3) 016470 127767 162744 162704 a CMPB Ss @SWR, STSTNM ::0N THE RIGHT TEST? SwR<7:0> 

(3) MOV aswR,-(SP) i SET DESIRED TEST NUM. FROM SUR 

(3) BIC esuamK: (SP) :STRIP AWAY UNDESIRED BITS 

(3) CMPB s(SP)+,$TSTNM ::0N THE RIGHT TEST? 

(3) 002 -ENDC 

(3) 016476 001465 BEQ SOVER ::BR IF YES 

(3) 001 -ENDC 

(3) 000 END 

(3) 001 “IF NE $SWR&5000; SwW11!Sw09 

(3) 016500 105767 162677 2$: RFL ::HAS AN ERROR OCCURRED? 

(3) 002 IF NE $SWR&4000;: Swit 

(3) 016504 001421 ia $$ ::BR IF NO 

(3) BEQ SSVLAD ::BR IF NO 

(3) 001 ~ENDC 

(3) 002 SIF NE $SWR&1000; suo9 

(3) 003 IF NE $SuR&4000; § 

(3) 016506 126767 162703 162667 denna. SERFLG ©; ;MAX. ERRORS FOR THIS TEST OCCURRED? 
(3) 016514 101015 BHIe 7:BR IF NO 

(3) 002 .ENDC 

(3) 016516 032777 001000 162714 BIT #B1T09,aSWR ; LOOP oN ERROR? 

(3) 016524 001404 BEQ F 

(3) 016526 016767 162656 162652 7$ MOV $LPERRSLPADR DISET LOOP ADDRESS TO LAST SCOPE 

(3) 016534 000446 nee BR SOVER 

(3) 016536 105067 162641 4s: CLRB = SERFLG 3;ZERO THE ERROR FLAG 

(3) 016542 005067 162744 om CLR STIMES [:CLEAR THE NUMBER OF ITERATIONS TO MAKE 
(3) 016546 000415 1$ S:ESCAPE TO THE NEXT TEST 

(3) 001 .ENDC 

(3) 000 SENDC 

(3) 001 "IF NE $SuR&4000; suit 

(3) 016550 032777 004000 162662 3$: BIT #BIT11,aSwR :: INHIBIT ITERATIONS? 

(3) 016556 001911 af BNE 1$ ::BR IF YES 

(3) 016560 005767 162750 TST SPASS i31F FIRST PASS OF PROGRAM 

(3) 016564 001406 al BEQ g 33 INHIBIT ITERATIONS 

(3) 016566 005267 162612 INC SICNT zzINCREMENT ITERATION COUNT 

(3) 016572 026767 162714 162604 CMP STIMES,SICNT © 3;CHECK THE NUMBER OF ITERATIONS MADE 
(3) 016600 002024 BGE SOVER IF MORE ITERATION REQUIR 

(3) 016602 012767 900001 162574 1$: MOV #1, $I1CNT i :REINITIALIZE THE ITERATION COUNTER 
(3) 01661 016767 000056 162674 Ree MOV SMXCNT,STIMES ::SET NUMBER OF ITERATIONS TO DO 

(3) 016616 105907 162560 $SVLAD: INCB $TSTNM ::COUNT TEST NUMBERS 
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0116 CNDUUA.M11. 29-0CT- SCOPE HANDLER ROUTINESTARS SEQ 0129 
(3) 001 LIF DF SMAIL 
( 016622 116767 162554 162702 a MOVE  $TSTNM,STESTN ;;SET TEST NUMBER IN APT MAILBOX 
(3) 016630 o1iges 162552 MOV (SP) ,SLPADR ::SAVE SCOPE LOOP ADDRESS 
(3) 001 ; IF NE $SWR&1000; Sw0S 
(3) 016634 011667 162550 MOV ise) SLPERR 33 SAVE ERROR LOOP ADDRESS 
(3) 016640 005067 162650 CLR sES¢ SCAPE [CLEAR THE ESCAPE FROM ERROR ADDRESS 
(3) 016644 M2767 000001 162543 pole MOVB @ SERRIAX S:ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
(3) SIIF Ed $SuRb5000 CLR SERFLG : 2 ZERO THE ERROR FLAG 
(3) 016652 016777 162524 162562 $0VER STSTNM,@ abi SeLAY SOI SPLAY TEST NUMBER 
(3) 016660 016716 162522 MOV HEH DR. (SP) S:FUDGE RETURN ADDRESS 
(3) 901 .IF B <SC1> 
(3) RTI SsFIXES PS 
(3) .IFF 
(3) 7 IRP LASTIN,<SC1> 
(3) LASTIN 
(4) .ENDM 
(4) 016664 $1 
(5) 016664 000002 4$ RTI 
(5) 016666 001407 BRW 1407 
(3) 016670 000432 BRK i 432 
(3) “TIF NDF $LPADR,S$LPADR: 
(3) “TIF EQ .-$LPADR,SLPADR: 0 s:SCOPE LOOP ADDRESS 
(3) 001 “IF NE $SWR&1000; Sw09 
(3) “1IF NDF $LPERR, $LPERR: 
(3) “IIF EQ .-$LPERR,$LPERR: 0 ::ERROR LOOP ADDRESS 
(3) 000 ENDC 
(3) 001 “IF NE $SWR&4000; suit 
(3) “TIF NDF Sones att 
(3) “LIF EQ eS : 0 ::NUMBER OF ITERATIONS TO PERFOR 
(3) “1IF Stent Sicur: 
(3) c1IF fo. “SICNT,$ICNT: 0 
(3) “1IF = NDE $MXCNT,SMXCNT: 
(3) 002 TIF 
(3) at EQ .-S$MXCNT, SMXCNT: 2000. :;MAX. NUMBER OF ITERATIONS 
(3) 016672 000005 $MXCNT: 5 ::MAX. NUMBER OF ITERATIONS 
(3) 001 ENDC 
(3) 002 IF B 
(3) “TIF NDF $PASS,$PASS: 
(3) “IF EQ .-$PASS,$PASS: 0 ::PASS COUNT 
(3) 001 *ENDC 
(3) 000 ENDC 
(3) “TIF NDF $TSTNM,STSTNM: 
(3) STIF EQ. sist NA STSTNM: .BYTE 0 :: TEST NUMBER 
(3) S1IF NDF “SER FLG SERFLG: 
(3) s1IF EQ .- SERFL 6, $ERFLG: .BYTE 0 s;ERROR FLAG 
(3) “TIF NE EVEN 
(3) “1IF NDF TRAN SERMAX: 
(3) “TIF EQ .-SERMAK, SERMAX: 1 ::MAX. ERRORS PER TEST 
(3) 001 “IF NB 
(3) 002 *1F IDN SWO8TBL,<> 
(3) “NLIST 
(3) $$Sw08=1 
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0117 CNDUUA.M11  29-0CT SCOPE HANDLER ROUTINESTARS SEQ 0130 
(3) LIST 
(3) $SwO8TBL: 
(3) LREPT © $TN=1 
(3) “IRP = KX, <\$ $SWOB> 
(3) .WORD  TST'X#2 s:STARTING ADDRESS OF TEST x 
(3) .ENDM 
(3) sNLIST 
(3) $$SW08=$$Sw08+1 
(3) «LIST 
(3) SENDR 
(3) 001 -ENDC 
(3) 000 -ENDC 
(1) 016674 *$TRAP 
(2) *SBTTL TRAP DECODER 
(3) 016674 STARS 
(3) 001 IF 
(3) ee eaten ener mad 
(3) “ IFF 
(3) <NLIST 
(3) REPT 
(3) “LIS 
(3) FFARR A AEAEAEEEAAE RATA AAAERAAEERERARRARARARAAAHAEAARAA RANE 
(3) “NLIS 
(3) END 
(3) SLIST 
(3) 000 SENDC Pits» 
(2) :*THIS ROUT INE Air PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
(2) ?*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
(2) 2*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
(2) :*#G0 TO THAT ROUTINE. 
(2) 001 IF B 
(2) 016674 010046 STRAP: MOV RO,-(SP) r:SAVE RO 
(2) $TRAP: MOV 2(SP) ,-(SP) : 
(2) sASSUME THE STATUS OF 
(2) BIC #20, (SP) 33 THE CALLER=-DO NOT ALLOW 
(2) MOV #1$.-(SP) ii T-BIT 
(2) RTI $3SET THE TNew STATUS 
(2) 000 .ENDC 
(2) 016676 016600 000002 MOV 2(sP), RO ::GET TRAP ADDRESS 
(2) 916702 005740 ST (RO) ?:BACKUP BY 
(2) 016704 111000 se Move (RO) ,RO [:GET RIGHT BYTE OF TRAP 
(2) BPL STRAP i :NON-USER TRAP BEL Ou 200 
(2) BIC #°C177,RO °:STRIP AWAY THE JUNK 
(2) JMP (PC) 33USER TRAP,ABOVE 177, GO TO 
(2) WORD ?: USER TRAP HANDLER- 
os: STRAP1: 
(2) 000 .ENDC 
(2) 001 "IF NB 
(2) CMP #STERM,RO s:CHECK FOR OUT OF BOUNDS 
(2) BGI +6 BR 
(2) HALT *:QUT OF BOUNDS 
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CNDUUA.M11 reat 8 13:29 TRAP DECODER SEQ 0131 
(2) BR 2 3 ;HANGUP 
a 990 .ENDC 
(2) 016706 006300 ASL RO ::POSITION FOR INDEXING 
(2) 016710 016000 016730 MOV STRPAD(RO),RO  ::INDEX TO TABLE 
016714 000200 RTS RO 2:60 TO ROUTINE 
(2) 
( ) s:THIS IS USE TO HANDLE THE “GETPRI’’ MACRO 
($} 016716 011646 STRAP2: MOV (SP), =(SP) s:MOVE THE PC DOWN 
(2) 016720 016666 00004 000002 MOV 4(SPS ,2¢SP) S:MOVE THE PSW DOWN 
016726 000002 SRESTORE THE PSW 
(2) .MACRO SETTRAP A,B.MSG 
(3) S$SET A.B. \<TRAP*+STRP>, \STRP,<MSG> 
(2) .NLIST 
(2) $TRP=$TRP+1 
(2) LIST 
(2) “ENDM © SETTRAP 
(2) "MACRO $$SET  A,B.C,.D,COMNT 
(2) “IF £Q $TRP=1 
(2) *SBTTL TRAP TABLE 
(2) s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
(3) [*BY THE TRAP’ INSTRUCTION. 
(2) ; ROUTINE 
(2) $TRPAD: .WORD $TRAP2 
(2) END 
(2) “TIF NDF GNS, .NLIST 
(2) LIF NDF GNS,.LIST 
(2) 8B 7:CALL=A TRAP+D(C) COMNT 
(2) .ENDM  $$SET 
(2) "MACRO TRMTRP 
(2) $TERM=.-$TRPAD 
(2) EN TRMTR 
(2) 000001 $TRP= 
(2) 001 IF DF $TYPE 
(2) 016730 SETTRAP TYPE,$TYPE,*/TTY TYPEOUT ROUTINE/ 
(3) 016730 SSSET TYPE ,STYPE, \<TRAP+$TRP>,\STRP,<TTY TYPEOQUT ROUTINE> 
(4) 002 IF EQ $TRP-1 
(4) *SBTTL TRAP TABLE 
(4) ;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
(4) S*BY THE TRAP’ INSTRUCTION. 
at 3 ROUTINE 
(4) 016730 016716 $TRPAD: .WORD $TRAP2 
(4) 001 eENDC 
(4) 104401 TYPE= 104401 
(4) 016732 013112 $TYPE  :;CALL=TYPE TRAP+1(106401) TTY TYPEQUT ROUTINE 
(3) 000002 STRP=$TRP+1 
(2) 000 .ENDC 
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CNDUUA.M11 29-0CT- SEQ 0132 
(2) 001 .If DF $TYPOC 
(2) 016734 SETTRAP TYPOC,S$TYPOC,“/TYPE OCTAL NUMBER (WITH LEADING ZEROS)/ 
(3) 016734 SS$SET TYPOC.STYPOC,\<TRAP*+$TRP>, \$TRP,<TYPE OCTAL NUMBER (WITH LEADING ZEROS)> 
(4) 002 .1F €Q $TRP=1 
(4) “SBTTL TRAP TABLE 
(4) s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
(4) [BY THE TRAP’ INSTRUCTION, 
(4) : ROUT INE 
(4) - +j=— ‘li aa aa a sama 
(4) $TRPAD: .WORD  $TRAP2 
(4) 901 -ENDC 
(4) 104402 TYPOC= 104402 
(4) 016734 014630 $TY POC 7: CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
(3) 000003 STRP=$TRP+ 
(2) 016736 CE TTRAP TYPOS ,STYPOS,*/TYPE OCTAL NUMBER (NO LEADING ZEROS)/ 
(3) 016736 S$SET TYPOS.$TYPOS.\<TRAP*$TRP>,\$TRP,<TYPE OCTAL NUMBER (NO LEADING ZEROS)> 
(4) 002 .IF EQ STRP- 
(4) *SBTTL TRAP TABLE 
(4) s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
(4) [*BY THE TRAP’ INSTRUCTION. 
ne 3 ROUT INE 
(4) $TRPAD: .WORD  $TRAP2 
(4) 001 sENDC 
(4) 104403 TYPOS= 104403 
(4) 016736 014604 $T yPOs s:CALL=TYPOS  TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
(3) 000004 STRP=$TRP+1 
(2) 016740 SETTRAP TYPON,STYPON,*/TYPE OCTAL NUMBER (AS PER LAST CALL)/ 
(3) 016740 S$SET TYPON.S$TYPON.\<TRAP+$TRP>,\SIRP,<TYPE OCTAL NUMBER (AS PER LAST CALL)> 
(4) 002 .IF E€Q $TRP- 
(4) *SBITL TRAP TABLE 
(4) :*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
(4) '*BY THE "TRAP’’ INSTRUCTION. 
(4) : ROUTINE 
(4) $TRPAD: .WORD $TRAP2 
(4) 001 -ENDC 
(4) 104404 TYPON= 104404 
(4) 016740 014644 STYPON :;CALL=TYPON  TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
(3) 000005 STRP=$TRP+1 
(2) 000 -ENDC 
(2) 001 “IF DF $TYPD 
(2) SE TTRAP TYPDS,STYPDS,*/TYPE DECIMAL NUMBER (WITH SIGN)/ 
(2) 000 -ENDC 
(2) 001 "IF DF $TYPBN 
(2) SETTRAP TYPBN,$TYPBN,*/TYPE BINARY (ASCII) NUMBER/ 
(2) 000 .ENDC 
(2) 001 .IF DE $GTSWR 
(2) SETTRAP GTSWR,SGTSWR,*/GET SOFT-SWR SETTING/ 
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20 CNDUUA.M11 29-0CT- SEQ 0133 
¢ ) 000 .ENDC 
(2) 001 IF DF SCKSWR 
( we s SETTRAP CKSWR,SCKSWR,“/TEST FOR CHANGE IN SOF T-SwWR/ 
(2) 001 .IF DF $RDCHR 
(2) SETTRAP RDCHR,SROCHR,“/TTY TYPEIN CHARACTER ROUTINE/ 
(2) 000 -ENDC 
(2) 001 -IF OF SRDLIN 
(2) SETTRAP RDLIN,SROLIN,“/TTY TYPEIN STRING ROUTINE/ 
(2) 000 .ENDC 
(2) 001 ~IF DF $RDOCT 
(2) SETTRAP RDOCT,$RDOCT,*/READ AN OCTAL NUMBER FROM TTY/ 
(2) 000 -ENDC 
(2) 001 -IF DF SRODEC 
(2) SETTRAP RDDEC,$RDDEC,*/READ A DECIMAL NUMBER FROM TTY/ 
(2) 000 -ENDC 
(2) 001 .IF DF SSAVREG 
(2) SETTRAP SAVREG, SSAVREG,*/SAVE RO-RS ROUTINE/ 
(2) SETTRAP RESREG,SRESREG,*/RESTORE RO-R5 ROUTINE/ 
(2) 000 -ENDC 
(2) 001 “IF DFE $R2A 
(2) SETTRAP R2AZ,$R2AZ 
(2) SETTRAP R2AZ.,$R2AZ. 
(2) SETTRAP R2AZQ,$R2AZ0 
(2) 000 .ENDC 
(1) 016742 SETTRAP SCOP1,.SCOP1 sCALL TO LOOP ON CURRENT DATA HANDLER 
(2) 016742 $$SET  SCOP1,.SCOP1,\<TRAP*+$TRP>, \STRP, <> 
(3) 001 IF €Q $TRP=1 
(3) “SBITL TRAP TABLE 
(3) :*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
@) S*BY THE “TRAP’’ INSTRUCTION. 
3) : ROUT INE 
(3) $TRPAD: .WORD $TRAP2 
(3) 000 .ENDC 
(3) 104405 SCOP1= 104405 
(3) 016742 013070 ~SCOP1 :;CALL=SCOP1 TRAP+5 (104405) 
(2) 000006 STRP=$TRP+1 
(1) 016744 SETTRAP INSTR,.INSTR  ;ACLL TO ASCII STRING QuTPUT ROUT INE 
(2) 016744 $$SET INSTR, INSTR, \<TRAP+$TRP>, \$TRP,< 
(3) 001 .IF €Q $TRP=1 
(3) *SBITL TRAP TABLE 
(3) s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
3) [*BY THE "TRAP’’ INSTRUCTION 
oe 3 ROUTINE 
(3) $TRPAD: .WORD  $TRAP2 
(3) 000 ~ENDC 
(3) 104406 INSTR= 104406 
(3) 016744 013374 SINSTR :3;CALL=INSTR TRAP +6 (104406) 
(2) 900007 STRP=$TRP+1 
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(1) 016746 SETTRAP NSTER, . NST ER ;CALL TO INPUT ERROR 4 HANDLER 
016746 - 1. t INSTER,. INSTER, \<TRAP*STRP>, \STRP, <> 


Thee | 
~SBTTL TRAP TABLE 


ssTHIS TABLE adhd be THE STARTING ADDRESSES OF THE ROUTINES CALLED 
3*BY THE “‘TRAP’’ INSTRUCTION. 


; ROUT INE 


$TRPAD: .WORD $TRAP2 


000 . 
104407 INSTER= 104407 
016746 013502 hl ER ;;CALL=INSTER TRAP+7(104407) 
000010 $TRP=$TRP 
016750 SETTRAP PARAM, . PARAM CALL TO NUMERICAL DATA INPUT ROUTINE 
016750 001 IF £0 etme PARAM, .PARAM, \<TRAP+$TRP>, \$TRP,<> 


-SBTTL TRAP TABLE 


s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
3*BY THE “‘TRAP’’ INSTRUCTION. 


F ROUTINE 
$TRPAD: .WORD $TRAP2 
0 .ENDC 
104410 PARAM: 104410 
016750 013512 ARAM ;;CALL=PARAM TRAP+10( 104410) 
000011 STRP=$TRP a 
016752 SETTRAP SAVOS,.SAVOS CALL _TO REGISTER SAVE ROUTINE 
016752 ee nan shee i SAVOS, .SAVOS, \<TRAP*$TRP>, \STRP, <> 


R 
-SBTTL TRAP TABLE 


s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
7*BY THE TRAP’ INSTRUCTION. 


3 ROUT INE 


STRPAD: .WORD $TRAP2 


000 ~ENDC 
°- 104411 SAVO5= 104411 
016752 013712 SAv05 3; CALL=SAVO5 TRAP+11(104411) 
000012 STRP=$TRP 
016754 SETTRAP RESOS, .RESOS >CALL TO REGISTER RESTORE ROUTINE 
016754 - 2 $$S ser RESOS, .RESO5, \<TRAP+$TRP>, \STRP, <> 


EQ $TRP- 
-SBTTL TRAP TABLE 
2*THIS TABLE CONTAINS THE ane ADDRESSES OF THE ROUTINES CALLED 
3*BY THE *‘TRAP’’ INSTRUCTION 


: ROUTINE 


$TRPAD: .WORD $TRAP2 


RRR RRR RRR AR RRA RRR FR RAAF RFA RAR RRR AR RAR RRA REE PP PPP Pn PNP Pn tm 
WWWWNAWNAAAIAIID N'A ANNAN NAIA RAIA ANN NWWANNAIIDD = WANA ANNAN 
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22 CNDUUA.M11 -0CT- SEQ 0135 
(3) 00 -ENDC 
(3) 10441 RESOS= 104412 
(3) 016754 01375 gngses 3; CALL=RESOS TRAP+12(104412) 
(2) 00001 STRP=$TRP+ 
(1) 016756 SETTRAP CONVRT,.CONVRT ;CALL TO DATA OUTPUT ROUTINE 
(2) 016756 S$SET ° CONVRT, .CONVRT, \<TRAP+STRP>, \STRP,<> 
(3) 001 IF EQ $TRP-1 
{3} -SBTTL TRAP TABLE 
(3) 3*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
‘> s*BY THE ‘‘TRAP*’ INSTRUCTION. 
&) 3 ROUTINE 
(3) $TRPAD: .WORD $TRAP2 
(3) 000 ~ENDC 
(3) 104413 CONVRT= 104413 
(3) 016756 014004 -CONVRT ;;CALL=CONVRT TRAP*+13(104413) 
(2) 000014 STRP=S$TRP+1 
(1) 016760 SETTRAP SETFLG,.SETFLG ;CALi TO FLAG SET ROUTINE 
(2) 016760 SSSET © SETFLG,.SETFLG,\<TRAP+$TRP>, \STRP,<> 
(3) 001 IF EQ $TRP-1 
(2 -SBTTL TRAP TABLE 
(3) s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
(?) 7*BY THE ““TRAP’’ INSTRUCTION. 
oa: . ROUTINE 
(3) $TRPAD: .WORD $TRAP2 
(3) 000 eENDC 
(3) 104414 SETFLG= 104414 
(3) 016760 014162 oSETFLG ;;CALL=SETFLG TRAP*14(104414) 
(2) 000015 STRP=$TRP+1 
8730 seeeeeeeeeeeeeeAeeeeetreeeeeAteeeReneeeeeeeeteeKeRKeneeenee 
8731 sUTILITIES 
8732 seeeereeereneeeeenereeerertenereteeneeeeeeereeeeeeeneneeere 
8733 
8734 sTHIS UTILITY CALCULATES PRIORITY LEVEL 
8735 016762 006367 000044 DULEV: ASL DUPRT ;SHIFT LEFT 
8736 016766 006367 000040 ASL DUPRT ; 
8737 016772 006367 000034 ASL DUPRT ; 
8738 016776 006367 000030 ASL DUPRT ; 
8739 017002 006367 000024 ASL DUPRT . 
8740 017006 016767 000020 000020 MOV DUPRT,LESS1 sMOVE THIS TO LESS! 
8741 017014 162767 000001 000012 SUB LES$i sCREATE LESS! 
B74e 017022 042767 000037 000004 BIC #37,LESS1 [CLEAR TNZVC 
8743 017030 000207 RTS PC 
8744 017032 000240 DUPRT: PRS 
ate 017034 000200 LESS1: PR4 sLEVEL TO ALLOW INTERRUPTS 
8747 ;NEW DU ADDRESSES 
8748 017036 016767 000126 162646 DUADDR: MOV DUBASE ,RXCSR 3Xxx0 
8749 017044 005267 000120 INC DU 
8750 017050 016767 000114 162636 MOV DUBASE, ,HRXCSR =; XXX1 
875% 017056 005267 000106 INC DUBASE 
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23 ENDUUAS M11 260 -0CT- “83 13:29 TRAP T 
MOV DUBASE ,RXDBUF =; XXX 
G75 gi7aeg Siero? sessee Sessa gy ups ape 
R138 SITS BReFer BETES weagy AM BURRS asogue can 
875 giz 16767 90084 185800 MOV DUBASE. *HPARCSR XXX 
Ee O17192 O1¢767 Goag42 162576 MOV DUBASE , TXCSR SKKX6 
ae) rn aa: aan 
Bree OITIEG SNoSee BOOSIE 162556 OV DUBASE,TxDBUF —:xxX6 
154 005267 000010 
Bre 017166 O1é7e7 000004 162546 Moy DUBASE .HTXDBUF XXX? 
8766 017170 000000 DUBASE: 0 ae 
; Y POKES THE MAINT DATA BASED U 
5768 SINE ORMAT OU N CONTAINED IN $TMP1 AND IT IS 
th * SHIFTED IN BY THE CONTENTS OF SHIFT 
17172 042777 040000 162526 RPOKE: BIC ge TDATA, aTxcsR 
or 8 7 162276 CLR $TMP2 
err Bisson ste 162270 ROR STMP1 sFORCE CARRY 
ore 017596 Mines 162266 RO $TMP scatrr intone IN, BIT 15 
SH 
8775 017214 006267 162262 ASR STMP2 sist NTO OT 14 
Gre Suess Bearer Tevese 1ezess BIE StaraSghtss iebteMLint ara 
#CLK,aTXx : 
Gree Sitses gear Seooee Teese RIE SAE | 
8780 017250 005367 161646 DEC sHiF 
8781 017254 001346 BNE RP 
8782 017256 000207 
Bre THIS ROUTINE CALCULATES ODD PARITY FOR AN 8 BIT CHAR 
ores 7260 016767 162214 162214 ODD8: MoV STMP1,$TMP2 sSAVE TEMP 
gree or e5e 7 162212 CLR STMP3 
8786 017266 00506 12 CLR at 
8787 017272 012727 0000 ms , 
ores or S08 itt 162176 1$: ROR Simp 
8790 017304 005567 162174 ADC $1 
Bree Siraio iggy 17770 he 
Bree Sirase Sesuey M62te2 3 = 
8795 017304 05 767 000400 162146 Bis #B1T8,STMP1 pe raditecte 
i444 TEE SASIOT GONER TORTS Bs Ol Pt wou uid noe panitt LHARACTER 
8799 017342 000207 3$: ats PC 
tt] >THIS ROUTINE Ca CUL ATES EVEN PARITY 4 me 8 BIT CHARACTER 
oB0: 017344 016767 162130 162130 EVENS: MOV STMP1,STMP2 7SAVE TEMP1 
BeOS 7352 005067 162126 CLR STMP3 
ti batts 012727 000010 oa mov #8.,(PC)+ 
BBoG Or peer ita 162112 1$: ROR $TMP 
8807 017370 005567 162110 ADC STMP 
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8808 
44 


0000000000 000000 
$0 90.90 90 90 Go 0060 
NR 2 2 ot a 

—"OOONOUE WHO 


DARK R ARR RRR RRR 
Ot sk dd od od at od 
Nw www uwuuvuuwuuwvuw 


oo 


000100 
000102 


000140 
000142 


2 


DEC 4$ 

BNE 1$ 

ROR STMP3 

BCC 2$ 

Bae a oSTMP1 :SET EVEN PARITY 
BIC #B1T8,STMP1 ;CLR ODD PARITY 


inet NOW iRe® EVEN PARITY CHARACTER 


: ADD "2, (SP) ; ae IT TO *‘CRUNCH’’ INTO HLT BACK 


N MAIN PART OF THE PROGRAM 


RT] 
JALIZE SBC 11/21 PROCESSOR ODT AND LKVEC 


SAVE POINTER 


sLKVEC HANDLER 
: INTERRUPT HANDLER PRI 


;BRKVEC 
£001 Hy ADDRESS 


;PRIOR 
>RESTORE POINTER 
TYPE .CLKRES 


eASCIZ <15><12>/LKVEC INTERRUPT = DISCONNECT LIC / 


0(104 14=DEC-82 10:02 pact Ay 123 
29-0(T- 8) 13:29 TRAP T 
005367 177762 
001371 
006067 162076 
103004 
052767 000400 162062 
000403 
042767 000400 162052 2$: 
p0geo? : 
062716 000002 TRPREG 
000002 

s INIT 

- INIT 
017436 POINT=. 
009100 -=100 
017436 SCLKVEC 
000300 300 
000140 -=140 
170000 170000 
00030 300 
017436 .=POINT 
104401 017444 SCLKVEC: 
000000 
005015 045514 042526 CLKMES: 
020103 047111 042524 
051122 050125 020124 
020055 044504 041523 
47117 042516 052105 
046040 041524 000040 
000001 ~ END 


SEQ 0137 
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8a 


>Pr>r 
o>> 
an 
=m 
“nn 


Ov 


ae 8729 


° 

9 

« 

_—s 
VEWNR—O 


Se 


SELL LLLL LLLP EVEL LLL EPL PPL PPLE PELE EEE EE 


ee ee ee ee ee ee et Ye a ee a a a a aaa aed 
0 Gd Co CO OP Cd Cd CO Cd CO CO 


S 


OL LLL 


001154 we §=8729* 


SEQ 0138 
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1126 CNDUUA.M11 OC T- CROSS REFERENCE TABLE == USER SYMBOLS “FQ 0139 
BASEIV 001162 81484* 8729 
BBB 3026 81488 
BINWRD 014160 143 4m 
Bitw = 002000 Tig $133 8151 8152 8153 8154 8155 8157 8158 8159 8160 8161 8162 
BITO = 000001 8143" 
B1T00 = 000001 81484 
B1101 = 000002 81484 
BI TOs = 000004 81484 
BIT05 = 000010 81484 
B1T04 = 000020 81484 
BIT0S = 000040 Ht rd 
B1106 = 000100 1488 
B11T07 = 000200 81484 
BIT08 = 000400 81484 o7S8 
B1TO9 = 001000 81484 8729 
BIT1 = 000002 81484 
BIT10 = 002000 81484 8729 
BIT11 = 004000 81484 8729 
ois = 010000 81484 
BIT135 = 020000 81484 8729 
BI1T14 = 040000 81484 8729 
B1115 = 100000 81484 8776 
aig = 000004 81488 
BITS = 000010 8148" 
BIT4 = 000020 8148" 
BITS = 000040 81484 
BIT6 = 000100 81484 
BIT? = 000200 8148" 
BIT8 = 000400 81484 8795 8797 8812 8814 
BIT9 = 001000 81484 
BPTVEC= 000014 8148" 
BREAK = 000001 8148" 8181 8220 8241 8435 8488 8684 
BRKVEC= 000140 81484 
BRW 016666 87298 
RX 016670 87298 
CARDET= 010000 81484 
cc 012646 87294 
CHRCNT 014156 8729 
CKSWR 012742 87298 
LK = 020000 81484 8150 8151 8152 8153 8154 8155 8157 8158 8159 8160 8161 8162 
8181 8182 8183 8195 8196 8220 8221 8222 8231 8232 8241 8242 8254 
8255 8279 8284 8314 8316 8339 8373 8380 8407 8414 8435 8440 8441 
8442 8488 8490 8491 8615 8617 8634 8666 8670 8778 8779 
CLKMES 017444 88214 
CNTLU. 013016 8148 8729# 
CONVRT= 104413 8729" 
COUNT 001124 81484 197* 8204* 8313 8322* 8331" 8342* 8444" 8448* 8452" 8492" 8497" 8570 
8575« 579* 8663"  8686* 
CR = 000015 81484 8729 
CRLF = 000200 81484 8729 
CTS = 020000 81484 
DDISP = 177570 81488 
DEVADR 013706 8729a 
DEVICE 015351 87298 
002132 81484 
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DH1 002067 81488 
DISPLA 001442 B148a* 8729+ 
DISPRE 000174 81484 
DNA 100 81484 
DNAINT= 000040 81484 
psc = =_:- 100000 He 
DSINTE= 000040 1484 8710 8716 8724 
DSR = 001000 81484 
pswrR = 177570 81484 
pTR = 000002 81484 8717 
DT1 002116 81484 
DIG 00¢1¢6 pt 
DUADDR 017056 148 8729 87484 
DUBASE 017170 8148 8729* 8748 8749* 8750 8751* 8752 8753 8754* 8755 8756 8757* 8758 
8759* 8760 8761* 8762 8763* 8764 87664 
DULEV 016762 8148 87354 
puPRT 017032 8148* 8702 8735* 8736*  8737* 8738 8739* 8740 87448 
DURIS 001740 81484 8702* 8712 8713* 8721 8722*  8729* 
DURIV 001736 81484 8701* 8712" 8721* 8729* 
DUTIS 001744 81484  8729* 
DuTIVv 001742 81484  8729* 
EIGHT = 006000 81484 B13¢ 8153 8154 8155 8157 8158 8159 8160 8161 8162 8181 8220 
8241 827 8309 366 8401 8435 8488 8611 8660 
EMTVEC= 000030 81484" 
001762 81484 
EM2 002022 81484 
—EmM3 002043 81484 
001746 81484 
ERRCNT 001114 81484 
ERRVEC= 000004 81484" 8729* 
VENS 017344 88024 
EVEPAR= 001400 81484 8150 8152 8154 8157 8159 8161 
EVPAR = 000400 81484 
FIVE = 000000 81484 
FRMERR= 020000 81484 
/GNS = eeeeee 8729 
HDXEN = 000010 81484 8632 
HILIM 013704 87294* 
HLDO 001130 81484 8729 
HLD1 001132 81484  8729* 
HLD 001134 81484 8729" 
HLD 001136 81484  8729* 
HLD4 091140 81484  8729* 
HLDS 901142 81484 hs 
HLD6 001144 81484 7298 
OLD 001120 81484 8615 8617 8634 
HPARCS 001724 81484  8756* 
HRXCSR 001714 81484  8750* 
HRXDBU 001720 81484 8755" 
= 000011 81484 8729 
HTXCSR 001730 81484 8760+ 
HTXDBU 001734 81484 8764" 
uF 016172 8148 87294 
INIFLG 001172 81484" 
INSTER= 104407 8148 87298 
INSTR = 104406 8148 87294 
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INSTR2 


io 
= 
Ww 
uw 


SSsssvse MONOW ~_— ~N ~N —— pars —_ 
SOO NOOVWNS | COOWNNAONOAON OCONQONVOWUWNN SFOOCOSNMNLOLFAWOOCO 


8151 8154 8155 
8694 
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=z 
2 
SOoooecooooeo Boooococooooocoocooooocooo 
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S 
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Ly 
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< 
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OVRRUN= 040000 81484 8347 
PARAM = 10441 8148 29a 
PARAM 01354 7298 
PARCSR 00172 81484 8150* 8151* 81538 81538 8154 8155* 8157* 
BiBie B220* 8241" 8273" 8309* 8366* 8401" 8435 
PAREN = 001000 81488 
PARER = 010000 81484 
PARERR 013618 87298 
PARTI 013700 87298 
PASCNT 001112 81484" 8729* 
PFTAB 015164 87294 
PIRQ = 177772 81488 
PIRQVE= 000240 81484 
POINT = 017436 88214 
POPRO = 012600 81484 
POP1SP= 005726 81488 
POP2SP= 022626 81484 
PRO = 000000 81484 
PRI = 000040 81484 
PR2 = 000100 81484 
PR3 = 000140 81488 
PRG = 000200 81484 8745 
PRS = 000240 81484 8744 
—PR6 = =: 000300 81484 
/PR7 == - 000340 81484 
(PSs = «177776 81484 
'psw = 177776 81484 
-PUSHRO= 010046 81484 
| PUSH1S= 005746 81484 
/PUSH2S= 024646 81484 
| PWRVEC= 000024 81484" 
RDSW 013056 8729H" 
/RECACT= 004000 81484 8187 8198 8206 8454 8503 8532 8539 
REPLAY 012544 87298 
| RESTAR 015070 87294 
'RESTRT 012726 87298 
/RESVEC= 000010 81484 
|RESOS = 104412 87298 
RETURN 001104 81484 8729 
‘RING = 040000 81484 
| RINTEN= 000100 81464 
ROTADD 001170 8148" 8729* 
\RPOKE 017172 8186 8192 8203 8451 8462 8496 8517 8531 
‘RTS = 000004 81488 
/RUNA = etenee UJ 3678 5862 6003 6416 
RUNB = teeeee U 570 5871 6010 6425 
'RUNC = eeeeee U 5728 5879 6017 6434 
/RUND = teeeee UJ 5753 5888 6024 6443 : 
/RUNE = 000000 5676" 5778 «©5898 «=. «6031S «6452 
RUNF = e#eeee UJ 5804 5908 6038 6461 
RUNIT 012450 87298 
RXCSR 001712 81484 8182* 8187 8198 8206 8311" 8319 8344 
8503 8506 8518 853 8535 8538* 8539 85478 
8584 8590 B6l2* 8624 8637 8661" 8677 8699* 
8724" 8729 8748 


8548 


8546 


8556 


8555 


8581 


8578 


8589 


SEQ 0142 
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RXDBUF 001716 1484 225 234 57 31 325 8348 8443 8467 8493 8521 8563 8594 
SS ee SS 
RXDONE= 000200 1488 
RKERR = rae 14 8347 
SAVIT 01441 7298 
SAVPC §=—001126 1488 8729+ 
SAVSP 001116 1484  8729* 
SAVOS = 104411 1h 
SCOP1 = 104405 Hf on 
SEND = 000020 1484 8150 151 8152 8153 8154 8155 8157 8158 8159 8160 8161 8162 
8273 8309 366 8368 837% 8401 8424 8611 8660 
SEREC 001150 tpt a 
SETFLG= 104414 814 87298 
SEVEN = 004000 81484 8150 8151 
SEXMIT 001147 81484 
HIFT 001122 81484 8150" 8151* 8152* 8153* 8154" 8155" 8157" 8158*  8159* 8160"  8161* 8162+ 
8184* 8190" 8201* 8223" 82359" 8243* 8263* 8315" 8317* 8337" 8340" 8374" 8387s 
8405* 8421" 8422 $053 8449* 8460" 8494* 8515" 8529* 8545" 8554*  8576* 8587+ 
8616* 8618* 8619 622 8633* 8635"  8668*  8671* 8672 8675 8780* 
SIX _= 002000 81484 
SPACNT= 014157 87294 
RD = 002000 81484 
STACK = 001100 81484 8729 
TD = 000010 81484 
STFLG 001173 81484+ 
STKLMT= 177774 81484 
STPSYN= 00040 81484 8311 8437 
$v05 013729 87298 
WR 001440 81484" 8729 
SWREG 000176 81484 8729 
SWREGL 013060 87298 
swO = 000001 81484 
/SwOO = 000001 81484 
$wO1 = 000002 81484 
SwO2 = 000004 81484 
SswOS = 000010 8146" 
~$W04 = 000020 81484 
$wOS = 000040 81484 
/$W06 = 000100 81484 
$wO7 = 000200 81484 
$swO8 = 000400 81484 
$wO9 = 001000 81484 8729 
Swi == 000002 81484 
/$W10 = 902000 81484 
Swi1 = 004000 81484 
$Wi2 == 019000 81488 
SWwi5 = 020000 81484 
SW14 = 040000 81488 
$w15 = 100000 81484 
Sw2 = 000004 81484 
Sw3 = 000010 81484 
SW4 == 000020 81484 
SWw5 = = 000040 81484 
SW6 = = 000100 81484 
SW? = =_ 000200 81484 
SWB == 000400 81484 


SEQ 0144 
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CNDUUA.M1i OCT- CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0145 
SAPTHD 002136 sisee 
SASTAT= eeeeee Y O08 
SATYC 000024 70084 
SATY1 000000 70084 
SATY3 000006 70084 $738 
SATY4 000016 70084 8729 
SAUTOB 001434 81484 
ASE 00160 81484 
SBDADR 00142 81484 
SBDDAT 001426 81484 
SBELL 001516 81484 8729 
$CDwWi 001606 re od 
2 001610 81488 
SCHARC 013570 87294 
SCKSWR= teeere 8729 
SCLKVE 017436 88214 
SCMTAG 001400 81484 
$CM1 = 000006 81484" 
SCM2 = 000014 81484 
$CM35 = 000006 81484 
$cm4 = 000006 81484 
SCPUOP 001554 81484 
SCRLF 001523 81484 8729 
SDDWO 001612 81484 
1 001614 81484 
$DDW10 001636 81484 
$DDW11 001640 81484 
SODWI2 001642 81484 
$SDDW15 001644 81484 
$D0DW14 001646 81484 
$DDW15 001650 81484 
$DDW2 001616 81484 
$DDW3 001620 81484 
$DDW4 001622 81484 
$0DW5 001624 81484 
DW6 001626 81484 
$DDW7 001630 81484 
$DDW8 001632 81484 
DDW9 001634 81484 
SDEVCT 001536 81484 
SDEVM 001604 81484 
E = 009002 68364 
SENDAD 012714 8148 87294 
ENV 001546 7008 aieee 8729 
SENVM 001547 7008 1484 8729 
SERFLG 001403 81484* 8729* 
SERMAX 001415 8148a* 8729* 
SERROR 014230 8148 87298 
SERRPC 001416 81484 8729* 
SERRTB 001652 81488 8729 
SERRTY 014450 87294 
SERTTL 001412 81484" 8729* 
SESCAP 001514 re oy 8729* 
SETABL 001546 81488 
SETEND 001652 aione 
SFATAL 001530 008* 81484 


CNDUU-A MACY11 3 
CNDUUA.M11 2 


ooooo[eo 


 $RDDEC= eeenee 


SRDOCT= eeeeee 
SREGAD 001460 
$REGO 001462 
SREG1 001464 
SREG2 001466 
$REGS3 001470 
SREGS 001472 
$REGS 001474 
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81618 


81624 


SEQ 0146 
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CNDUUA.M11 -0CT CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0147 
SSAVRE= seeeee 729 
SSCOPE 016340 4 g7sa" 
SSE TUP= 900 1484 729 
S$STUP = 177777 48a 
SSVLAD 016616 7298 
$SVPC = 002156 1488 
$SWR = 177400 64954 8148 8150 8151 8152 8153 8154 8155 8157 8158 8159 8160 8161 
5168 8178 8219 8271 8307 8364 8399 8424 8486 8607 8659 8693 8729 
SSWREG 001550 81484 
SSWRMK= 0000 8729 
STESTN 001532 81484 8729* 
STIMES 001512 81484" 8729* 
KB 001446 81484 8729 
TKS 001444 81484 8729 
STMPO 001476 81488" 
STMP1 001500 81484 8150" 8151* 8152* 8153 8154* 8155" 8157* §158*  8159*  8160* 8161* 8162+ 
8185* 8191* 8202" 8224" 8228 8244* 8250"  8369*  8376*  8404* 8410" 8450"  8461* 
8495* 8516* 8530" 8577* 8588 8773+ 8785 8795* 8797* oes 8812* 8814* 
s™mP2 001502 gece 8245" 8246"  8253* 8256 8772*  8774* 8775" 8776* 877 8785* 8789+ 8802+ 
STMP3 001504 81484 8786+ 8790" 8793 8803+ 8807*  8810* 
STMP4 001506 8148" 
S'MP5 001510 81484 
$Ti' = 900030 72478 81504 81514 81524 8153# 8154 81554 8157# 81584 8159% 81604 81614 81628 
81784 82198 82714 83074 83648 8399% 84344 84864 86074 86594 86934 
001452 81484 8729* 
STPFLG 001457 81484 8729 
001450 81484 8729 
P 016674 8148 87294 
STRAP2 016716 87294 
= 000015 87298 
STRPAD 016730 87294 
™ 002142 81484 
STSTNM 001402 81484" 8729* 
STYPBN= eeeee2 YJ 8729 
STYPDS= eeeeee YJ 8729 
STYPE 013112 7008 87294 
STYPEC 013324 87294 
STYPEX 013372 87294 
STYPOC 014630 87294 
STYPON 014644 87298 
STYPOS 014604 87294 
SUNIT 001540 81484 
SUNITM 002146 81484 
SuUSWR 001552 81484 
S$VECT1 001576 81484 
$VECT2 001600 81484 
XTSTR 016422 87294 
SOFILL 015027 8729H* 
OCAT= eeeeee VY ore 
. = 017510 008# #8148" 8150 8151 8152 8153 8154 8155 8157 8158 8159 8160 8161 
8162 8188 8199 8207 8236 8259 8276 8281 8286 8320 8327 8345 8350 
8384 8418 8455 8458 8464 8469 8504 8507 8519 8524 8533 8536 8540 
8549 8552 8557 8560 8565 8582 8585 8591 8596 8615 8617 8625 8630 
8634 8638 8643 8678 8682 8708 8720 87298 88214 
-BEGIN 003310 81484 8729 
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-CONVR 014 7298 
-EOP 1 m 7298 
eINSTE 015502 7298 
INSTR 013374 7298 
eINST1 015414 fi 9a 
MSG 013416 7298 
PARAM 01 835 87298 
-PFAIL 01503 8148 87298 
-RESO 813236 87298 
~SAVOS 01571 87298 
~SCOPE 016340 87298 
-SCOP1 013070 o7 on 
oSETFL 01416 7298 
eSTART 00215 81484 8729 
SASTA= eeeree 7008 
x = 002136 81488 


SEQ 0148 
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CNDUUA.M11 -0CT- CROSS REFERENCE TABLE == . CRO NAMES SEQ 0149 

COMMEN 15668 1484 

ERROR te + 126" 151 815 153 154 8155 8157 8158 159 8160 161 162 8189 2 
8208 6237 $380 8 38 B28? bee? B36] 8328 B3e6 HES 8385 oie) age 8459 gee 
8470 05 8508 8 99 8 ¢ 8534 8537 8541 550 8553 8558 8561 8566 8583 8586 
o23e 8597 8626 8631 8639 8644 8679 8683 8709 8725 

ESCAPE 169 81484 

GETPRI 13128 81488 

GETSWR 17718 81484 

iT 44848 81484 

NEWTST 16264 81484 8150 8151 8152 8153 8154 8155 8157 8158 8159 $160 8161 8162 8178 
8212 ger 8307 8364 8359 8434 8486 8607 8659 8693 
21534 98 81484 

PRGEND 81144 8729 

PRGFRT 72484 8148 

SH 145#@ 7008 81484 

PUSSYF 985¢ 8615 8617 8634 

REPORT 54634 64948 81488 

RSE TUP eo aig 8220 8241 8435 8488 

SCOPE 814 8150 8151 8152 8153 8154 8155 8157 8158 8159 8160 8161 8162 8178 8219 
8271 8307 8364 8399 8434 8486 8607 8659 8693 8729 
68268 8729 

SETPRI 12798 81488 

SETTRA 64938 87294 

SETUP 13374 81484 

SKIP 17334 81488 

SLASH 15174 81484 

SPACE 81484 

STARS 14854 7008 81484 8150 8151 8152 8153 8154 8155 8157 8158 8159 8160 8161 8162 
8178 8219 8271 8307 8364 8399 8434 8486 8607 8659 8695 8729 

SWRSU 14534 81488 

TRMTRP 87298 

TSETUP 7455@ #8150 8151 8152 8153 8154 8155 8157 8158 8159 8160 8161 8162 8273 8309 
8366 8401 8611 8660 

TYPBIN 20884 8148 

TYPDEC 20584 81484 

TYPNAM 18268 81484 

TYPNUM 2025# 81484 

TYPOCS 19784 81484 

TYPOCT 19414 81484 8729 

TYPTXT 18948 81488 

SBEGIN 67178 8148 


SHEADE 64978 
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CNDUUA.M11 -0CT- CROSS REFERENCE TABLE == MACRO NAMES SEQ 0150 

SINSTR 70098 8729 

$1S0B rrohe 

SMATCH 75708 

SMRR 74308 

SMRRW 424 

SMRW 74138 

$MSG 70964 8739 

SNEED 81024 8729 

SPARAM 70398 8729 

sponte ate Hf 8151 815 8153 8154 8155 8157 8158 8159 8160 816 8162 8279 828 

© H 4 

eels 8316 £339 8538 8380 8407 8414 8666 8670 

SPOKER 75584 8183 £195 8196 8221 8222 8242 8442 8491 

SRCNET 80128 


SREG 72214 8729 

SRESET 7574# 8150 3151 8152 8153 8154 8155 8157 8158 8159 8160 8161 8162 8181 8220 
8241 8273 8309 8366 8401 8435 8488 8611 8660 8696 

SRXACT 74688 

SSCOPE 68314 8729 

$SCOP1 69978 8729 

SSETFL 67884 8729 

SSETVE 65974 8148 

SSTART 66754 8148 

SSTRIP 78024 

SSYMBO 8651354 8148 

SSYNCR 75644 8182 8490 

STRPAR 78844 8150 8151 8152 8153 8155 8157 8158 8159 8160 8161 8162 

STSTINO 68384 8150 8151 8152 8153 8154 8155 8157 8158 8159 8160 8161 8162 8178 8219 
pee) 8307 8364 8399 8434 8607 8659 8695 

SUNIBU 7357# 

SVARIA 66134 8148 

SWORDF  7700# 

$SWORDO 76504 

DP 77288 

SSCMRE 81488 

SSCMIM 81488 

SSESCA 17118 81484 

SSNEWT 16624 81484 8150 8151 8152 8153 8154 8155 8157 8158 8159 8160 8161 8162 8178 
8219 8271 8307 8364 8399 8434 8486 8607 8659 8693 

SSSET 87294 

SSSETM 8148" 

SSSKIP 17468 81484 

-EQUAT 1894 6493# 8148 

- HE ADE 61% 64924 

- INIT 56584 81488 8821 

SETUP 12135 64928 8148 

» SWRHI 1044 

~SACT1 §«50646# 64948 8148 

-SAPTB = 5109% 64948 81488 

-SAPTH §=65370# 8664948 868148 

SAPTY 55478 64948 7008 

~SASTA 54178 
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-$DB20 48124 

-SDIV 45878 

- SEOP 144 eter 

-SeRRO OOF 64934 19 

oSERRT 896" 64958 8729 

« SMULT £35 a 

-SPOWE 42298 64938 

»SRAND 43078 


- SRODE 8914 
- $RDOC 7978 
- SREAD 3954 
~SR2AZ =4 9588 
~SSAVE 39698 
-$SB2D 47714 


$SB 

setoe 24548 64934 8729 
$SuP 

thea 40734 64938 8729 


STYPE 29854 64924 8729 
-STYPO }8=—31124 8646934 8729 
$40C 2 


- ABS. 017510 000 


ERRORS DETECTED: 0 


CNDUUA , CNDUUA/ CRF /NL : TOC=CNMAC2. SML ,CNDUUT.M11,CNDUU2.M11,CNDUUA.M11 
RUN-TIME: 17 18 1 SECONDS 

RUN-TIME RATIO: 80/37=2.1 

CORE USED: 43K (86 PAGES) 


